怎样在桌面上写字

ielfny1 2002-06-27 12:37:49
怎样将输出定位到桌面上,使文字、图片或者动画、影片等显示在桌面上,
并且不影响使用桌面上的图标?即所有的输出均在最低层
...全文
1248 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
luoweicaisd 2002-06-27
var
hdldtp:thandle;
hdcdtp:hdc;
begin
hdldtp:=GetDesktopWindow();
hdcdtp:=GetWindowDC(hdldtp);
TextOut(hdcdtp,500,300,'Welcome to delphi bbs!',22);
ReleaseDC(hdldtp,hdcdtp);
end;
  • 打赏
  • 举报
回复
first_csdn 2002-06-27
netlib(河外孤星) :

他说还有,影片呀!

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

放影片呀??!!

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

没见过这样的播放器

啦啦啦啦啦啦啦啦啦阿拉 ……
  • 打赏
  • 举报
回复
ielfny1 2002-06-27
谢谢你的代码!知道了
  • 打赏
  • 举报
回复
robinhunter 2002-06-27
var
dc:hdc;
begin
dc:=getdc(0);
textout(dc,10,10,'hello',5);
releasedc(0,dc);
end;
  • 打赏
  • 举报
回复
luoweicaisd 2002-06-27
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;
  • 打赏
  • 举报
回复
netlib 2002-06-27
那你作一张图片,然后把图片作为墙纸不就行了。
  • 打赏
  • 举报
回复
robinhunter 2002-06-27
你可能希望这样

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;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4928

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2002-06-27 12:37
社区公告
暂无公告