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 xe5 android 发短信以及目录

Delphi android程序启动过程

Delphi 编写的一个感染文件夹的小病毒

Delphi 加载excel 导入数据库

dll 的静态调用实例代码

Delphi spcomm的一些用法注意

Delphi isthisleapyear 判断闰年

Delphi基于prewitte算子的图像边缘检测

Delphi 的编码与解码(或叫加密与解密)函数

Delphi 获取系统进程列表和进程所在路径

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

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