Inno Setup 实现安装界面显示MAC与硬盘地址

Share

显示MAC网卡地址

1. [Setup]
   
2. AppName=My Program
   
3. AppVersion=1.5
   
4. DefaultDirName={pf}My Program
   
5. DefaultGroupName=My Program
   
6. 
   
7. [Files]
   
8. Source: "ISID.dll"; Flags: dontcopy
   
9. 
   
10. [Code]
    
11. function GetMACAddress(output: String): Integer;
    
12. external 'GetMACAddress@files:ISID.dll stdcall';
    
13. 
    
14. function GetMacAdd: string;
    
15. var
    
16.   ClassName: String;
    
17.   Ret: Integer;
    
18. begin
    
19.   SetLength(ClassName, 256);
    
20.   Ret := GetMacAddress(PChar(ClassName));
    
21.   Result := Copy(ClassName, 1 , Ret);
    
22. end;
    
23. 
    
24. procedure InitializeWizard();
    
25. var
    
26.   labMacAdd: TLabel;
    
27. begin
    
28.   WizardForm.WelcomeLabel2.Height := ScaleY(200);
    
29.   labMacAdd := TLabel.Create(WizardForm);
    
30.   with labMacAdd do
    
31.   begin
    
32.     Parent := WizardForm.WelcomePage;
    
33.     Caption := 'MAC 地址: ' + GetMacAdd;
    
34.     Transparent := False;
    
35.     Left := ScaleX(174);
    
36.     Top := ScaleY(280);
    
37.     Width := ScaleX(120);
    
38.     Height := ScaleY(12);
    
39.   end;
    
40. end;

复制代码

变种，下面的代码即适合 Unicode 版本，也适合 ANSI 版本，都可以正确显示 MAC 地址。

1. #ifdef Unicode
   
2. #define PChar "PAnsiChar"
   
3. #define String "AnsiString"
   
4. #else
   
5. #define PChar "PChar"
   
6. #define String "String"
   
7. #endif
   
8. 
   
9. [Setup]
   
10. AppName=My Program
    
11. AppVersion=1.5
    
12. DefaultDirName={pf}My Program
    
13. DefaultGroupName=My Program
    
14. 
    
15. [Files]
    
16. Source: "ISID.dll"; Flags: dontcopy
    
17. 
    
18. [Code]
    
19. function GetMACAddress(output: {#String}): Integer;
    
20. external 'GetMACAddress@files:ISID.dll stdcall';
    
21. 
    
22. function GetMacAdd: string;
    
23. var
    
24.   ClassName: {#String};
    
25.   Ret: Integer;
    
26. begin
    
27.   SetLength(ClassName, 256);
    
28.   Ret := GetMacAddress({#PChar}(ClassName));
    
29.   Result := Copy(ClassName, 1 , Ret);
    
30. end;
    
31. 
    
32. procedure InitializeWizard();
    
33. var
    
34.   labMacAdd: TLabel;
    
35. begin
    
36.   WizardForm.WelcomeLabel2.Height := ScaleY(200);
    
37.   labMacAdd := TLabel.Create(WizardForm);
    
38.   with labMacAdd do
    
39.   begin
    
40.     Parent := WizardForm.WelcomePage;
    
41.     Caption := 'MAC 地址: ' + Uppercase(GetMACAdd);
    
42.     Transparent := False;
    
43.     Left := ScaleX(174);
    
44.     Top := ScaleY(280);
    
45.     Width := ScaleX(300);
    
46.     Height := ScaleY(14);
    
47.   end;
    
48. end;

复制代码

获取硬盘序列号如下

1. #ifdef Unicode
   
2. #define PChar "PAnsiChar"
   
3. #define String "AnsiString"
   
4. #else
   
5. #define PChar "PChar"
   
6. #define String "String"
   
7. #endif
   
8. 
   
9. [Setup]
   
10. AppName=My Program
    
11. AppVersion=1.5
    
12. DefaultDirName={pf}My Program
    
13. DefaultGroupName=My Program
    
14. 
    
15. [Files]
    
16. Source: "{tmp}ISID.dll"; Flags: dontcopy
    
17. 
    
18. [Code]
    
19. 
    
20. function GetHDDSerial(Drive: Char; output: String):Integer;external 'GetHDDSerial@files:ISID.dll stdcall';
    
21. 
    
22. 
    
23. 
    
24. function GetHDD: string;//获取硬盘序列号函数
    
25. var
    
26.   ClassName: {#String};
    
27.   Ret: Integer;
    
28.   f: Char;
    
29.   
    
30. begin
    
31.   SetLength(ClassName, 256);
    
32.   Ret := GetHDDSerial(f,{#PChar}(ClassName));
    
33.   Result := Copy(ClassName, 1 , Ret);
    
34. end;
    
35. 
    
36. 
    
37. procedure InitializeWizard();
    
38. var
    
39.   labMacAdd: TLabel;
    
40. begin
    
41.   WizardForm.WelcomeLabel2.Height := ScaleY(200);
    
42.   labMacAdd := TLabel.Create(WizardForm);
    
43.   with labMacAdd do
    
44.   begin
    
45.     Parent := WizardForm.WelcomePage;
    
46.     Caption := '硬盘序列号: ' + Uppercase(GetHDD);  //显示MAC地址并转换为大写字母（Uppercase转换为大写字母）
    
47.     Transparent := False;
    
48.     Left := ScaleX(174);
    
49.     Top := ScaleY(280);
    
50.     Width := ScaleX(300);
    
51.     Height := ScaleY(14);
    
52.   end;
    
53. end;

复制代码