delphi的资源文件

最新推荐文章于 2023-04-11 18:59:28 发布

sunstone

最新推荐文章于 2023-04-11 18:59:28 发布

阅读量1k

点赞数

分类专栏： Delphi 技术文章标签： delphi image timer integer exe

本文链接：https://blog.csdn.net/sunstone/article/details/4711485

版权

本文介绍了如何在Delphi中将资源文件（如bmp图像、光标和icon图标）整合到EXE文件中，以提高调用速度。通过LoadBitmap、LoadCursor和LoadIcon函数加载资源，并展示了在不同场景下如何使用这些资源，例如改变图片、光标和应用程序图标。

摘要由CSDN通过智能技术生成

很古老话题了，不过今天碰到了，就捡起来研究和总结一下。

delphi可以把各种资源文件整合到exe文件中，这样调入速度快。

一 bmp图像，有两种方法

procedure TfrMain.btnCanvasPic(Sender: TObject);
var bBitmap : TBitmap;
begin
bBitmap := TBitmap.Create;
try
bBitmap.Handle := LoadBitmap(hInstance, 'ATHENA');
Image1.Width := bBitmap.Width;
Image1.Height := bBitmap.Height;
Image1.Canvas.Draw(0,0,bBitmap);
finally
bBitmap.Free;
end;
end;

另一种办法：

procedure TfrMain.btnLoadPicClick(Sender: TObject);
begin
Image1.Picture.Bitmap.
LoadFromResourceName(hInstance,'EARTH');
end;

二光标文件

procedure TfrMain.btnUseCursorClick(Sender: TObject);
const NewCursor = 1;
begin
Screen.Cursors[NewCursor] :=
LoadCursor(hInstance,'CURHAND');
Image1.Cursor := NewCursor;
end;

三 icon文件<