乙個比較完整的Inno Setup 安裝指令碼

增加了對ini檔案設定的功能，乙個安裝包常用的功能都具備了。

;壓縮相關

compression=lzma

solidcompression=yes

;製作選擇語言

[languages]

name: "chs"; messagesfile: "compiler:default.isl" ;licensefile :"c:\example\原始檔案\chs\agreement.txt"

name: "en"; messagesfile: "compiler:languages\english.isl";licensefile :"c:\example\原始檔案\en\agreement.txt"

;使用者定製任務

[tasks]

;選擇了元件才會出現的定製任務

;更改顯示在程式中顯示的訊息文字

[messages]

beveledlabel=hkiss科技

;解除安裝對話方塊說明

confirmuninstall=您真的想要從電腦中解除安裝issample嗎?%n%n按 [是] 則完全刪除 %1 以及它的所有元件;%n按 [否]則讓軟體繼續留在您的電腦上.

;定**壓說明

;statu***tractfiles=解壓並複製主程式檔案及相關庫檔案...

;用於在使用者系統中建立，修改或刪除登錄檔健值

[registry]

root: hklm ;subkey:"software\issample";valuetype:dword;valuename:config;valuedata:10 ;flags:uninsdeletevalue

;在執行指令碼

[code]

//全域性變數

var myprogchecked: boolean;

//判斷程式是否存在

//初始華程式事件

function initializesetup(): boolean;

var isbl: boolean; //宣告變數

var isstr: string;

begin //開始

isbl := true; //變數賦值

isstr := '歡迎';

if re**alueexists(hkey_local_machine, 'software\issample', 'config') then

begin

msgbox('已安裝過，請先解除安裝在安裝',mbconfirmation, mb_ok);

isbl := false;

end else

begin

//msgbox('無值',mbconfirmation, mb_ok);

isbl := true;

end;

//下面是個麻煩的條件語句 end else 注意

//if msgbox(isstr, mbconfirmation, mb_okcancel) = idok then

//begin

// isbl := true;

// msgbox('執行了', mbconfirmation, mb_ok);

//end else

//begin

// isbl := false;

//msgbox('執行了', mbconfirmation, mb_ok);

//end;

result := isbl;

end; //結束

procedure curstepchanged(curstep: tsetupstep);

var isstr :string;

begin

if curstep=ssinstall then //實際安裝前呼叫

begin

//msgbox('curstepchanged:實際安裝前呼叫', mbconfirmation, mb_okcancel); //安裝完成後呼叫

end;

if curstep=sspostinstall then

begin

isstr := expandconstant('\tmp.rar');

// if fileexists(isstr) then

// begin

// msgbox('檔案存在',mbconfirmation, mb_ok);

// end else

// begin

// msgbox('檔案不存在',mbconfirmation, mb_ok);

// end;

// msgbox('curstepchanged:實際安裝後呼叫', mbconfirmation, mb_okcancel);

end;

//下一步按鈕按鈕事件

function nextbuttonclick(curpageid: integer): boolean;

var resultcode: integer;

var issetup : boolean;

begin

issetup := true ;

case curpageid of

wpselectdir:

msgbox('nextbuttonclick:' #13#13 'you selected: ''' + wizarddirvalue + '''.', mbinformation, mb_ok); //wizarddirvalue路徑

wpselectprogramgroup:

msgbox('nextbuttonclick:' #13#13 'you selected: ''' + wizardgroupvalue + '''.', mbinformation, mb_ok); //開始選單名

wpready:

begin

if not re**alueexists(hkey_local_machine, 'software\test', 'config') then begin

if msgbox('程式執行需要test.ext,是否安裝!', mbconfirmation, mb_yesno) = idyes then begin

extracttemporaryfile('test.exe');

if not exec(expandconstant('\test.exe'), '', '', sw_shownormal, ewwaituntilterminated, resultcode) then

msgbox('test.exe出錯:' #13#13 ' ' + syserrormessage(resultcode) + '.', mberror, mb_ok);

end else begin

issetup := false ;

end ;

bringtofrontandrestore();

end;

result := issetup;

end;

乙個比較完整的Inno Setup 安裝指令碼

乙個比較完整的Inno Setup 安裝指令碼

乙個完整的健身方案

乙個完整的大作業

乙個比較完整的Inno Setup 安裝指令碼

乙個比較完整的Inno Setup 安裝指令碼

乙個完整的健身方案

乙個完整的大作業

相關推薦