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

这东西我倒是制作过，其实并不像想象中的那么复杂，但必须对grub有些初步的认识，然后自己制作logo就好了，别的安装程序，我用 inno制作了一个，发布给大家探讨。别的都一般，主要是在code段：可以自己设定密码及启动菜单的停留时间。CodevarAboutButton,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(sysattrib.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(sdboot),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.Parent := WizardForm;URLLabel := TNewStaticText.Create(WizardForm);URLLabel.Caption := XXXX 精简软件;URLLabel.Cursor := crHand;URLLabel.OnClick := URLLabelOnClick;URLLabel.Parent := WizardForm; Alter Font *after* setting Parent so the correct defaults are inherited first URLLabel.Font.Style := URLLabel.Font.Style + fsUnderline;URLLabel.Font.Color := clBlue;URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);BackgroundBitmapImage := TBitmapImage.Create(MainForm);BackgroundBitmapImage.Left := 50;BackgroundBitmapImage.Top := 100;BackgroundBitmapImage.AutoSize := True;BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap;BackgroundBitmapImage.Parent := MainForm;BackgroundBitmapText := TNewStaticText.Create(MainForm);BackgroundBitmapText.Left := BackgroundBitmapImage.Left;BackgroundBitmapText.Top := BackgroundBitmapImage.Top + BackgroundBitmapImage.Height + ScaleY(8);BackgroundBitmapText.Caption := TBitmapImage;BackgroundBitmapText.Parent := MainForm;UserPage := CreateInputQueryPage(wppassword,个性启动设置, 请输入您设置的WINDOWS 启动菜单停留时间和XXXX备份恢复工具启动密码,在这里设置WINDOWS 启动菜单停留时间和51LITE 备份恢复启动密码。请自己牢记！);UserPage.Add(XXXX 工具箱启动密码(默认为空):, False);UserPage.Add(windows 启动菜单停留时间（默认为8秒钟）:, False);UserPage.Values0 := UserPage.Values1 := 8end;procedure CurStepChanged(CurStep: TSetupStep);beginif CurStep = ssdone thenbeginSetIniString(boot loader, timeout, UserPage.Values1, c:boot.ini);IniFile:=C:bootgrubmenu.lst;beginOldString:=password ;NewString:= password +UserPage.Values0;LoadStringsFromFile(IniFile, IniFileLines);for i:= 0 to GetArrayLength(IniFileLines)-1 doif (Pos(OldString, IniFileLines) 0) thenStringChange(IniFileLines, OldString, NewString);SaveStringsToFile(IniFile, IniFileLines, False); end;end;end;procedure DeinitializeSetup();beginExec(ExpandConstant(sysattrib.exe), +s +h c:boot.ini, ExpandConstant(sys), SW_HIDE,ewWaitUntilIdle, ResultCode) end;function InitializeUninstall():boolean; begin Result := true Exec(ExpandConstant(sysattrib.exe), -r -s -h c:boot.ini, ExpandConstant(sys), SW_HIDE,ewnoWait, ResultCode)end;procedure DeInitializeUninstall();begin Exec(ExpandConstant(sysattrib.exe), +s +h c:boot.ini, ExpandConstant(sys), SW_HIDE, ewWaitUntilIdle, ResultCode)end;SetupAppName=Boot V 1.5AppVerName=Boot 1.5DefaultDirName=tmpOutputBaseFilename=BootUninstallable=noDisableDirPage =yesDisableProgramGroupPage=trueDisableReadyPage =yesDisableFinishedPage =yesMessagesSetupWindowTitle=Boot修改ButtonCancel=退出ButtonNext=修改ExitSetupTitle=退出修改！ExitSetupMessage=修改未完成 %n%n 点击“是”退出修改，点击“否”继续修改！INIFilename: sdboot.ini; Section: boot loader; Key: timeout; String: code:GetYourTimeOutFilename: sdboot.ini; Section: operating systems; Key: sdgrldr; String: code:GetYourName; Flags: createkeyifdoesntexist uninsdeleteentryCodeprocedure CurPageChanged(CurPageID: Integer);begin if CurPageID = wpWelcome thenWizardForm.NextButton.OnClick(WizardForm)WizardForm.BorderIcons:= biSystemMenu, biMinimize; if CurPageID = wpInstalling thenWizardForm.Hide WizardForm.BackButton.Visible:= false;end;varPage: TInputQueryWizardPage;ValueYouEntered0: string;ValueYouEntered1: string;function GetYourTimeOut(Param: string): string;beginresult:= ValueYouEntered0;end;function GetYourName(Param: string): string;beginresult:= ValueYouEntered1;MsgBox(修改成功！, mbInformation, MB_OK);end;procedure InitializeWizard();var iCode: Integer;beginExec(attrib.exe, -r -h -s +ExpandConstant(sdboot.ini), , SW_HIDE, ewWaitUntilTerminated, iCode);Page := CreateInputQueryPage(wpLicense, 系统启动菜单设置, 设置你的启动菜单, 请设置你的启动菜单，然后单击“修改”。);Page.Add(操作系统列表等待时间(显示的为当前等待时间):, false);Page.Add(操作系统列表启动项名称(显示的为当前PE启动项名称):, false);if IniKeyExists(boot loader, timeout, ExpandConstant(sdboot.ini) thenPage.Values0:= GetIniString(boot loader, timeout, , ExpandConstant(sdboot.ini);if IniKeyExists(operating systems, ExpandConstant(sdgrldr), ExpandConstant(sdboot.ini) thenPa