你做一个资源文件,例如有这样的脚本:
TempBmp Bitmap C:/Windows/Temp/Temp.bmp
用 Brcc32 编译成 Res 文件。
然后连接生成一个 DLL 文件,假设名称为 MyRes.DLL
再在你的 Exe 代码中这样写——
Var
B: TBitmap;
HInst: HINSTANCE;
Begin
H := LoadLibrary('MyRes.DLL');
Try
If H <> 0 Then
Begin
B := TBitmap.Create;
B.LoadFromResourceName(H, 'TempBmp');
Canvas.Draw(0, 0, B);
B.Free;
End;
Finally
FreeLibrary(H);
End;
End;