[Vanadiy777]

Bio_Hazard,
Отправил Вам в личку, попробуйте, может приживется...

[EdMSL]

Доброго дня. Есть сборка игры. Нужно чтобы перед установкой Стим был выключен. Можно, конечно, написать огромными буквами, что стим надо закрывать до начала установки, но всегда найдется кто-то, кто тыкает далее не читая вообще ничего. Поэтому хотелось бы в инсталяторе делать принудительное закрытие. Например, через cmd: taskkill /im steam.exe.
Но как сделать это до установки? Т.е. надо что-то вроде [InstallDelete], но для команд. Писать свой скрипт? Если да, то может есть уже готовые примеры, которые выполняются до установки.

[Vanadiy777]

Но как сделать это до установки? Т.е. надо что-то вроде [InstallDelete], но для команд. Писать свой скрипт? Если да, то может есть уже готовые примеры, которые выполняются до установки. »

EdMSL,
Можно так попробовать:

Скрытый текст

Код:

[_code]
function IsProcessRunning(FileName: String): Boolean;
var
  objSWbemLocator, objSWbemServices: Variant;
begin
  try
    objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  except
    ShowExceptionMessage;
    Exit;
  end;
  objSWbemServices := objSWbemLocator.ConnectServer();
  objSWbemServices.Security_.ImpersonationLevel := 3;
  Result := (objSWbemServices.ExecQuery('SELECT * FROM Win32_Process WHERE Name="' + FileName + '"').Count > 0);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
i: integer;

begin
 if CurStep = ssInstall then
  begin
   if IsProcessRunning('Steam.exe') then
    Exec(ExpandConstant('{sys}\taskkill.exe'), ' /F /IM Steam.exe', '', SW_HIDE, ewWaitUntilTerminated, i);
  end;
end;

Перед установкой проверяет, запущен ли Steam.exe, если запущен - то закрывает принудительно и продолжается установка.

Ну, или так:

Скрытый текст

Код:

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

[_Code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';

function InitializeSetup(): Boolean;
begin
  If RunTask('Steam.exe', false) then
    begin
      if MsgBox('Программа Steam используется. Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then
        begin
          KillTask('Steam.exe');
          Result:= True;
        end else
          Exit;
    end;
Result:=True;
end;

Только тогда ISTask.dll будет нужен...

[EdMSL]

Можно так попробовать »

Спасибо, попробую.
Нашел еще тут скрипт, но он что-то не работает.
http://forum.oszone.net/post-2401734-1524.html
Пишет, что Unknown identifier 'CallbackAddr'

Можно так попробовать »

Так, работает.
Тогда еще вопрос. Можно ли добавить условие как-то, чтобы закрывался он только в том случае, если выбран вариант установки для Стим? Есть компоненты в [Components] только для стим. И если пользователь их выбрал, то стим закрывается, не выбрал - ничего не делаем.

[Vanadiy777]

Нашел еще тут скрипт, но он что-то не работает. »

EdMSL,
Первый вариант, который я Вам предложил, самый простой, и работает без сторонних библиотек...
Проверено на версиях компилятора 5.6.1- 6.0.5.
Сам им пользуюсь.

P.S. Нам с Вами надо в эту тему перебраться... А то модераторы будут недовольны...

[EdMSL]

P.S. Нам с Вами надо в эту тему перебраться... А то модераторы будут недовольны... »

Написал в той теме

[EdMSL]

Для проверки системных требований перед установкой решил использовать сторонние dll. Но теперь при запуске установщика он загружается секунд 20 и только потом появляется первое окно? С этим можно что-то сделать или только не использовать стороние dll?

Код:

function GetGpuVRam: integer; external 'GetGpuVRam@files:ISSysInfo.dll stdcall delayload';
function GetTotalVisibleMemory: integer; external 'GetTotalVisibleMemory@files:ISSysInfo.dll stdcall delayload';
function GetOSName: PAnsichar; external 'GetOSName@files:ISSysInfo.dll stdcall delayload';
function GetOSArchitecture: Byte; external 'GetOSArchitecture@files:ISSysInfo.dll stdcall delayload';

function GetVideoCardName(): PAnsiChar;external 'hwc_GetVideoCardName@files:get_hw_caps.dll stdcall';
function GetSoundCardName(): PAnsiChar; external 'hwc_GetSoundCardName@files:get_hw_caps.dll stdcall';
function GetSoundCards(): Integer; external 'hwc_GetSoundCards@files:get_hw_caps.dll stdcall';

P.S. Разобрался. DLL надо прописывать в секции [Files] обязательно самыми первыми.

[EdMSL]

Хочу добавить для определенного exe запуск от администратора. Нагуглил, что можно в секции [Registry] добавить запись.

Код:

Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; ValueName: "{app}\MO2\ModOrganizer.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekey;

Но это не работает, запись просто не добавляется. Если exe через свойства добавить запуск от администратора для всех пользователей, то запись появляется.

Для HKCU вместо HKLM работает.

[Vanadiy777]

Но это не работает, запись просто не добавляется. »

EdMSL,
странно, у меня в HKLM нормально добавляется все и работает...

Скрытый текст

[EdMSL]

Vanadiy777, а у меня вот только HKCU добавляет. Оставил так, в принципе, достаточно в моем случае. Если у других будет добавляться, то хорошо.