本文整理自网络，侵删。
第一：准备exe程序 a.exe
第二：准备资源：
建立一个资源文件myRes.rc,内容如下：
MyExe EXE a.exe
第三：编译资源
进入DOS，运行 brcc32 myRes.rc;
这时编译出资源：myRes.RES
第四：
创建dll文件，代码如下：
library Project1;
uses
SysUtils,
Classes,dialogs,
common in 'common.pas';
{$R *.res}
{$R myRes.RES}
exports
loadDll;
begin
releaseExe();
end.
unit common;
interface
uses
Classes,Windows,SysUtils,dialogs;
function FileResourceToLocalFile(Instance:Cardinal;ResName,ResType,sFileToSaved:String):boolean;
procedure releaseExe();
procedure loadDll();
implementation
function FileResourceToLocalFile(Instance:Cardinal;ResName,ResType,sFileToSaved:String):boolean;
Var
FileStream:TFileStream;
ResourceStream:TResourceStream;
Begin
result:=true;
Try
Try
ResourceStream:=TResourceStream.Create(Instance,ResName,Pchar(ResType));
ResourceStream.SaveToFile(sFileToSaved);
Except
On E:Exception Do
Begin
result:=false;
showMessage('生成本地资源文件失败:'+#13+#10+E.Message);
Exit;
end;
end;
Finally
ResourceStream.Free;
End;
End;
procedure releaseExe();
begin
if common.FileResourceToLocalFile(hInstance,'MyExe','EXE','target.exe') then
showMessage('exe程序已经释放：target.exe');
end;
procedure loadDll();
begin
showMessage('dll已经被调用');
end;
end.
第五：新建另一个工程，调用dll：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure loadDll();external 'project1.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
loadDll();
end;
end.
ok了。 相关阅读 >>
Delphi tstreamwriter tstreamreader 流操作3
更多相关阅读请进入《Delphi》频道 >>
