Dll里中的代码
library RegDll;
uses
SysUtils,
Classes,
Windows,
Registry; // 没 Windows 注册表里查找不到 HKEY_LOCAL_MACHIN Registry为注册表操作
{$R *.res}
Function 函数名 (变量: String):String; StdCall; // 注册表查询获得AE软件所有版本返回字符串列表
begin
result := '字符';
end;
exports 函数名;//输出函数
begin
end.
Inno SetUp 里调用代码
function 函数名(变量:String):TStringList;external'函数名@DLL的地址 stdcall delayload'; //注意这个DLL地址为临时文件夹的地址:先需要在【FILE】段把DLL复制到临时文件夹中
EXE里调用代码
//函数一定注意大小写
unit 单元名;
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;
implementation
{$R *.dfm}
function 函数名(变量:String):TString;StdCall;external'Dll的地址'; //调用外部的DLL
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(函数);
end;
end.