SpoinT
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору 3eJIeHb [Setup] AppName=My Program AppVerName=My Program version 1.5 DefaultDirName={pf}\My Program DisableProgramGroupPage=yes Encryption=yes Password=Cnn0 [Files] Source: C:\readme.txt; DestDir: {app}; [Code] var str: string; MyArray: array of Char; function InitializeSetup(): Boolean; begin MyArray := ['A','B','C','D','E','F','G','H','I','J','K','L','M', 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z', 'a','b','c','d','e','f','g','h','i','j','k','l','m', 'n','o','p','q','r','s','t','u','v','w','x','y','z', '1','2','3','4','5','6','7','8','9','0', '!','@','#','$','%','^','&','*','(',')']; Result:= True; end; function CheckPassword(Password: String): Boolean; begin WizardForm.PasswordEdit.Text:= 'The password is protected!'; WizardForm.PasswordPage.Free; Result:= True; end; procedure InitializeWizard(); begin WizardForm.PasswordEdit.Visible:= False; WizardForm.PasswordEdit.Text:= 'The password is very protected!'; end; function NextButtonClick(CurPageID: Integer): Boolean; begin str:= GetDateTimeString('ss', #0, #0); Result:= True; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpPassword then begin WizardForm.PasswordEdit.Text:= MyArray[2]+MyArray[39]+MyArray[39] + IntToStr(StrToInt(str) - StrToInt(GetDateTimeString('ss', #0, #0))); WizardForm.NextButton.OnClick(WizardForm.NextButton); end; end;
---------- В жизни мне не хватает 2-х вещей - кнопок Save Game и Load Game... |
|