制作类似矮人工具箱的程序.docVIP

这东西我倒是制作过，其实并不像想象中的那么复杂，但必须对grub有些初步的认识，然后自己制作logo就好了，别的安装程序，我用 inno制作了一个，发布给大家探讨。别的都一般，主要是在code段：可以自己设定密码及启动菜单的停留时间。 [Code]varAboutButton,CancelButton:TButton;URLLabel: TNewStaticText;BackgroundBitmapImage: TBitmapImage;BackgroundBitmapText: TNewStaticText;UserPage: TInputQueryWizardPage;IniFile, OldString, NewString:string;i,ResultCode: Integer;IniFileLines: TArrayOfString;function InitializeSetup(): boolean;begin?? Result := true?? Exec(ExpandConstant({sys}\attrib.exe), -r -s -h c:\boot.ini, ExpandConstant({sys}), SW_HIDE,ewnoWait, ResultCode)?? Result := MsgBox(安装须知: #13#13 如果您的系统为多系统，请在win2000,winXP,WIN2003下安装使用。, mbConfirmation, MB_YESNO) = idYes;if inikeyExists(operating systems,c:\grldr,c:\boot.ini) then?? beginResult := MsgBox(程序安装向导: #13#13 你已经安装过其他dos工具，选择是将升级为XX备份恢复工具1.0#13#10选择否保留现有dos工具箱并退出安装。 ,mbConfirmation, MB_YESNO) = idyes?? if Result = true then?? deltree (ExpandConstant({sd}\boot),true,true,true)?? if Result = False then?? MsgBox(程序安装向导: #13#13 您选择保留原有工具箱,现在将退出安装程序，再见。, mbInformation, MB_OK);?? end;end;procedure AboutButtonOnClick(Sender: TObject);beginMsgBox(本安装程序由“XXX”LQL制作 #13#13 更多绿软请光临XXX, mbInformation, mb_Ok);end;procedure URLLabelOnClick(Sender: TObject);varErrorCode: Integer;beginShellExec(open, http://WWW.XXXX.COM, , , SW_SHOWNORMAL, ewNoWait, ErrorCode);end;procedure InitializeWizard();beginWizardForm.PAGENAMELABEL.Font.Color:= clRed;WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;WizardForm.WELCOMELABEL1.Font.Color:= clpurple;WizardForm.WELCOMELABEL2.Font.Color:= clolive;WizardForm.PASSWORDLABEL.TabOrder := 0;CancelButton := WizardForm.CancelButton;AboutButton := TButton.Create(WizardForm);AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;AboutButton.Top := CancelButton.Top;AboutButton.Width := CancelButton.Width;AboutButton.Height := CancelButton.Height;AboutButton.Caption := 关于(A)...;AboutButton.OnClick := @AboutButtonOnClick;AboutButton.P