摘要：const CN_EXECUTE_STR = 'Regsvr32.exe /s %s '; var StrPath: string; begin StrPath := 'C:\aa.dll '; WinExec(PChar(Format(CN_EXECUTE_STR, [StrPath])), SW_NORMAL); end; 阅读全文

摘要：library Project1;uses SysUtils, Classes,Forms,windows,dialogs, Unit1 in 'Unit1.pas' {Form1};{$R *.res}function showform(formname:string):boolean;stdcall;var TheClass: TPersistentClass; aForm: TForm;begin result:=false; {如果您的Dll中有很多FORM，请在这儿注册哦 RegisterClasses([TForm1,TForm2,TForm3,...]); } R 阅读全文

摘要：第一步: 建一个 DLL 工程, 如图:然后保存, 我这里使用的名称都是默认的. 第二步: 建一个资源原文件, 如图:编辑内容如下(路径中的文件一定要存在):img1 BITMAP "c:\temp\test.bmp"然后, 取个名(后缀须是 rc, 我这里取名为 Res.rc), 保存在工程目录下. 第三步: 在 DLL 工程中添加这个资源原文件, 如图:此时, 工程源文件中会添加一句: {$R 'Res.res' 'Res.rc'}, 我们需要的源文件这样即可: library Project1;{$R 'Res.res' 阅读全文