47STRELOK
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору [Files] Source: "precomp\*"; DestDir: "{tmp}"; Flags: ignoreversion overwritereadonly Source: "Data\*"; DestDir: "{app}"; Flags: overwritereadonly recursesubdirs ignoreversion createallsubdirs sortfilesbyextension; AfterInstall: RecompressPCF [Code] procedure RecompressPCF; var Tmp, Text, InputFile, OutputFile: string; n, ResultCode: Integer; begin if ExtractFileExt(CurrentFileName)='.pcf' then begin InputFile:=ExpandConstant(CurrentFileName); n:=Length(InputFile); while InputFile[n]<>'.' do n:=n-1; OutputFile:=Copy(InputFile, 1, n-1); Text:=WizardForm.StatusLabel.Caption; WizardForm.StatusLabel.Caption:='Рекомпрессия извлеченного файла...'; WizardForm.FileNameLabel.Caption:=OutputFile; Tmp:=ExpandConstant('{tmp}\'); Exec(Tmp+'precomp.exe', '-d -o"'+OutputFile+'" "'+InputFile+'"', Tmp, SW_HIDE, ewWaitUntilTerminated, ResultCode); DeleteFile(InputFile); WizardForm.StatusLabel.Caption:=Text; end; | Всего записей: 246 | Зарегистр. 25-10-2009 | Отправлено: 12:52 04-01-2010 | Исправлено: 47STRELOK, 09:35 05-01-2010 |
|