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 2007 使用shelltreeview控件

Delphi fmx获取屏幕方向

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi 跳出循环的几种方法

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi 给gmail发送邮件

Delphi一个简单的穿墙下载者

Delphi压缩库 zlibex 介绍

Delphi读取和写入utf-8编码格式的文件

Delphi idhttp访问http与https不同点

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

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