怎样在桌面上写字

[ielfny1]

怎样将输出定位到桌面上，使文字、图片或者动画、影片等显示在桌面上，
并且不影响使用桌面上的图标？即所有的输出均在最低层

[robinhunter]

你可能希望这样

var
Acanvas:TCanvas;
begin
Acanvas:=TCanvas.Create;
with acanvas do
begin
Handle:=getdc(0);
brush.style:=bsclear;
font.size:=14;
textout(10,10,'hello');
ReleaseDC(0,acanvas.handle);
free;
end;
end;

[netlib]

那你作一张图片，然后把图片作为墙纸不就行了。

[luoweicaisd]

var mydc:HDC;
Acanvas:TCanvas;
begin
mydc:=getdc(0);
Acanvas:=TCanvas.Create;
Acanvas.Handle:=mydc;
Acanvas.FillRect(Rect(10,10,100,100));
Acanvas.Free;
ReleaseDC(0,mydc);
end;

[robinhunter]

var
dc:hdc;
begin
dc:=getdc(0);
textout(dc,10,10,'hello',5);
releasedc(0,dc);
end;

[ielfny1]

谢谢你的代码！知道了

[first_csdn]

netlib(河外孤星) :

他说还有，影片呀！

做成web page 然后 调用 桌面显示web内容

放影片呀？？！！

我没想出来，最重要的是还要不影响图标。很好的创意。

没见过这样的播放器

啦啦啦啦啦啦啦啦啦阿拉 ……

[luoweicaisd]

var
hdldtp:thandle;
hdcdtp:hdc;
begin
hdldtp:=GetDesktopWindow();
hdcdtp:=GetWindowDC(hdldtp);
TextOut(hdcdtp,500,300,'Welcome to delphi bbs!',22);
ReleaseDC(hdldtp,hdcdtp);
end;