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 mysql数据库操作类 mysqlhelper

Delphi 调用golang dll

Delphi 遍历fdquery1所有结果

Delphi编程实现sql server挂起清除

Delphi版的隐藏模块单元 hidemoduleunit.pas

Delphi 如何从dll中检索导出函数的列表

行为判断Delphi中窗体最大化与最小化事件

Delphi 递归搜索文件夹子目录

Delphi工具之winsight

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

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

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