546242502:打包dll文件没[表情]
(2015-08-11 16:28)
打了呢,代码是这样的:
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=G:\办公软件\ha_innosetup5503_skygz\改加密测试
OutputBaseFilename=界面mac地址显示
[Files]
Source: G:\办公软件\ha_innosetup5503_skygz\IKG测试\ISID.dll; DestDir: {sys}\ISID; Flags: dontcopy
[Code]
function GetMACAddress(output: String): Integer;
external 'GetMACAddress@files:ISID.dll stdcall';
function GetMacAdd: string;
var
ClassName: String;
Ret: Integer;
begin
SetLength(ClassName, 256);
Ret := GetMacAddress(PChar(ClassName));
Result := Copy(ClassName, 1 , Ret);
end;
procedure InitializeWizard();
var
labMacAdd: TLabel;
begin
WizardForm.WelcomeLabel2.Height := ScaleY(200);
labMacAdd := TLabel.Create(WizardForm);
with labMacAdd do
begin
Parent := WizardForm.WelcomePage;
Caption := 'MAC 地址: ' + GetMacAdd;
Transparent := False;
Left := ScaleX(174);
Top := ScaleY(280);
Width := ScaleX(120);
Height := ScaleY(12);
end;
end;