Ветеран
Сообщения: 1133
Благодарности: 581
|
Профиль
|
Отправить PM
| Цитировать
Цитата AlekseyPopovv:
как поменять "/VERYSILENT" на "/V"? »
|
Пример
Код:
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl
[Code]
function InitializeSetup(): Boolean;
var
i, ResultCode: Integer;
begin
// проверяем с 1, потому что ParamStr(0) всегда будет имя исполняемого файла
for i := 1 to ParamCount do
if LowerCase(ParamStr(i)) = '/v' then
begin
Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
Exit;
end;
Result := True;
end;
|
-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.
Отправлено: 13:32, 03-10-2014
| #1712
|