Inno setup 我想设置为输入查询到mac地址自动和无可编辑的inno设置密钥生成器脚本

这是我的inno设置脚本（inno设置密钥生成器脚本）

我想设置为自动输入mac地址和私钥的查询，不可编辑

inno设置密钥生成器下载（sample2.iky，ISID.dll）

www.mjfreelancing.com/index.php？option=com\u content&view=article&id=11&Itemid=13

inno安装程序下载

www.jrsoftware.org/isdl.php

对不起，我的英语不好

请帮帮我

谢谢

---

---

---

要使编辑框不可编辑，只需使用其属性ReadOnly即可

您已经创建了3个编辑框（类TPasswordEdit），因此现在仅将其ReadOnly设置为true：

UserPage.Values[0].ReadOnly := True;
UserPage.Values[1].ReadOnly := True;
UserPage.Values[2].ReadOnly := True;

将此代码放在过程InitializeWizard（）的末尾

//之后创建此函数

function GetMacAdd(Output: string): string;
var
ClassName: String;
Ret: Integer;
begin
SetLength(ClassName, 256); 
Ret := GetMacAddress(PChar(ClassName)); 
Result := Copy(ClassName, 1 , Ret);
end;

//叫它

UserPage.Values[0]:=(GetMACAdd(''));

---

希望有帮助。

您的

GetMacAdd

函数原型毫无意义（为什么会有未使用的

输出

参数？），

ClassName

对于绝对做其他事情的变量来说不是一个好名字（实际上是无用的，因为您可以直接使用

结果

变量）。最后，如果您定义了一个函数原型，它接受一个

字符串

参数，那么为什么要传递一个

PChar

？无论如何，这还不够（只是猜测，根本不知道库，因此无法判断

GetMACAddress

函数原型是否正确）？

function GetMacAdd(Output: string): string;
var
ClassName: String;
Ret: Integer;
begin
SetLength(ClassName, 256); 
Ret := GetMacAddress(PChar(ClassName)); 
Result := Copy(ClassName, 1 , Ret);
end;

UserPage.Values[0]:=(GetMACAdd(''));