FunnyRabbit
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
if CurStep = ssInstall then //precomp
begin
if (FileExists(AddBackslash(ExpandConstant('{tmp}')) + 'precomp.exe')) and (FileExists(AddBackslash(ExpandConstant('{app}\data')) + 'data.pcf')) then
begin
if not(CreateProcess(ExpandConstant('{tmp}\precomp.exe') + ' ' + '-r data.pcf', ExpandConstant('{app}\data'), False, @ISCreateProcessCallback)) then exit; //прекомп восстановит data.pcf в папки data
ProgressBar1.Position := ProgressBar1.Position+1;
DeleteFile(ExpandConstant('{app}\data\data.pcf')); |
Всего записей: 105 | Зарегистр. 01-11-2010 | Отправлено: 13:30 24-11-2010 | Исправлено: FunnyRabbit, 13:31 24-11-2010 |
|
