0Fenixx0
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Setup] AppName=My Program AppVerName=My Program version 1.5 DefaultDirName={pf}\My Program DefaultGroupName=My Program Compression=zip [Languages] Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: c:\game\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs Source: is7z.dll; DestDir: {tmp}; Flags: dontcopy [Icons] Name: "{group}\Удалить"; IconFilename: "{app}\unins000.exe"; Filename: "{app}\unins000.exe" [Code] var ProgressBar : TNewProgressBar; ExtractFile:TNewStaticText; Button1:TButton; procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass:pchar); external 'Extract7z@files:is7z.dll stdcall'; procedure CancelExtract; external 'CancelExtract@files:is7z.dll stdcall'; procedure InitializeWizard(); begin ProgressBar := TNewProgressBar.Create(WizardForm); ExtractFile:=TNewStaticText.Create(WizardForm); with WizardForm.ProgressGauge do begin ProgressBar.Left := Left; ProgressBar.Top := Top + ScaleX(55); ProgressBar.Width := Width; ProgressBar.Height := Height; ProgressBar.Parent := WizardForm.InstallingPage; ProgressBar.max := 100; ProgressBar.Position := 0; ExtractFile.parent:=WizardForm.InstallingPage; ExtractFile.autosize:=false; ExtractFile.Width := Width; ExtractFile.top:=Top + ScaleX(35); ExtractFile.caption:='Распаковка архива 7zip'; end; end; procedure Button1OnClick(Sender: TObject); begin CancelExtract; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssPostInstall then begin Button1:=TButton.create(WizardForm); Button1.parent:=WizardForm; Button1.width:=135; Button1.caption:='Отменить распаковку'; Button1.left:=260; Button1.top:=WizardForm.cancelbutton.top; Button1.OnClick:=@Button1OnClick; try Extract7z (wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{src}') + '\1.7z', ExpandConstant('{app}'), ''); Button1.visible:=false; except MsgBox('Неверный пароль!', mbInformation, MB_OK); Button1.visible:=false; end; end; end; | Всего записей: 5 | Зарегистр. 09-10-2009 | Отправлено: 09:32 01-12-2009 | Исправлено: 0Fenixx0, 09:33 01-12-2009 |
|