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 将整数转换为罗马数字（字符串）2

Delphi 用ini记录combobox的itemindex

Delphi 十六进制数转换十进制数

Delphi xe10.x 快捷失灵解决办法

Delphi treeview �c 自动给标题上加图片

Delphi 去除右边指定字符

Delphi datasnap 的http 调用返回json

Delphi 获得网页乱码

用Delphi编写涂鸦桌面的小程序

Delphi 链接转换为本地文件路径

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

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