Delphi 在电脑屏幕上显示图片

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
aCanvas:TCanvas;
 i:Tbitmap;
begin
aCanvas:=TCanvas.Create;
i:=tbitmap.Create;
i.LoadFromFile('c:\1.bmp');
    try
   aCanvas.Handle:=GetDC(0);//把桌面给acanvas
   aCanvas.Draw(480,300,i);

   finally
     aCanvas.Free;
    end;
end;

 

相关阅读 >>

Delphi xe中 exit 的新用法

Delphi xe7的android应用设定wifi的有效无效

Delphi trimleft 删除字符串左边的空格

Delphi using windows print spooler to run your file

Delphi 获取文件所在路径

Delphi android实例-trectangle加载图片(xe8+小米2)

Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4

Delphi xe10 android安卓 移动端 messagedlg 用法

Delphi 服务操作

Delphi vista以上系统的进程静音

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 在电脑屏幕上显示图片