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 datamodule1 fdconnection1数据库连接

Delphi wmi获取网卡mac

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi webbrowser1去边框

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi xe7中stringgrid组件的使用

Delphi 如何从html格式的字符串中提取纯文本？

Delphi webbroker 输出图片的问题

Delphi firedac 获取 insert 记录的自增 id

Delphi cxgrid中回车键光标移到下列

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

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