Qarma
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если задать так, то оно требует файл "audio.exe":
Код: procedure CheckSelectedDisk;
var
res:Integer;
s,s1,s2:string;
begin
s:=ExpandConstant('{src}')+'\audio.exe';
s1:=ExpandConstant('{app}');
s2:= ExpandConstant('"audio.exe"');
if not Exec(s, '-x -y -d"' + s1 + '"', '', SW_SHOW, ewWaitUntilTerminated, res) then
case MsgBox('Для дальнейшей установки требуется файл ' + s2 + ''#13#13 +
'Вставьте второй DVD, содержащий архив, и нажмите "OK".' #13#13 +
'Нажмите "Отмена", чтобы прекратить дальнейшую установку.', mbInformation, MB_OKCANCEL)
of IDOK:
begin
CheckSelectedDisk;
end
end;end; |
Как сделать тоже самое, но чтобы распаковывалось через арк.exe
Я пробовал так, но при достижении конца установки(вроде бы должно "вылезти" сообщение: "нужен диск блаблабла...", но этого не происходит, вместо того, чтобы показать это сообщение, процедура просто игнорируется):
Код: procedure CheckSelectedDisk;
var
res:Integer;
s,s1,s2:string;
begin
s:=ExpandConstant('{tmp}')+'\arc.exe';
s1:=ExpandConstant('{app}\pc');
s2:=ExpandConstant('{src}')+'\1.arc';
ExtractTemporaryFile('Arc.exe')
if not Exec(s, 'x "' + s2 + '" -y -dp"' + s1 + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res) then
case MsgBox('Для дальнейшей установки требуется файл ' + s2 + ''#13#13 +
'Вставьте второй DVD, содержащий архив, и нажмите "OK".' #13#13 +
'Нажмите "Отмена", чтобы прекратить дальнейшую установку.', mbInformation, MB_OKCANCEL)
of IDOK:
begin
CheckSelectedDisk;
end
end;
end; |
Поможет кто сказать, как реализовать выполнение процедуры(далее распаковки) через арк.exe ? |
Всего записей: 288 | Зарегистр. 18-02-2009 | Отправлено: 10:25 15-06-2009 | Исправлено: Qarma, 10:28 15-06-2009 |
|
А то забегался и забыл поблагодарить. Я про 
.
