unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormPaint(Sender: TObject);varh: THandle;bit: TBitmap;beginh := LoadLibrary('c:\temp\Project1.dll'); {载入 DLL}bit := TBitmap.Create;bit.LoadFromResourceName(h, 'img1'); {提取资源}Canvas.Draw(10, 10, bit); {在窗体上绘制图片}FreeLibrary(h); {载卸 DLL}bit.Free;end;end.
//效果图:
联系客服