[SatHan]

R.i.m.s.k.y., Johny777, Спасибо.
R.i.m.s.k.y., ничево себе сколько кода . хотелось как лучше а получилось как всегда .
ладно я тада сам попробую что нибудь скумекать.

[R.i.m.s.k.y.]

SatHan, CTRL+C CTRL+V

[SatHan]

CTRL+C CTRL+V »

Спасибо. я имел введу не копировать вставить. наоборот сам код упростить и уменьшить.

сделать тоже самое

читать дальше »

Код:

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

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

function InitializeSetup(): Boolean;
begin
  If RunTask('notepad.exe', false) then
    begin
      MsgBox('блокнот запущен. пожалуйста закройте блокнот и запустите установку заново.', mbInformation,  MB_OK);
          Exit;
    end;
Result:=True;
end;

но без использования ISTask.dll.

[R.i.m.s.k.y.]

сделать тоже самое но без использования ISTask.dll. »

а) делается тоже самое
б) без использования ISTask.dll
шонитаг?
А ты думал одной строчкой все сделать хорошо?

[Nasedkin Nikita]

панель нужна? взято отсюда то что в первом посте. в вложении прикрутил. »

Спасибо, помогло. А картинки в инстал через botva2 ставить?

[Mailchik]

SatHan, поменьше, от El Sanchez'а вроде:

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[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 InitializeWizard();
begin
  if IsProcessRunning('notepad.exe') then
    MsgBox('yes', mbInformation, MB_OK)
  else
    MsgBox('no', mbError, MB_OK);
end;

[R.i.m.s.k.y.]

Mailchik SatHan, пример хороший только как пример работы с WMI
На затвиканных вендах и говносборках этот вариант не работает тк в них убит наглухо WMI. Ошибка SwbemLocator: not found. Плавали, знаем

[SatHan]

Mailchik, Спасибо.
много чего уж перепробовал, но оставил этот, так как код короче всех. потому шансов на ошибки мизерный.

[R.i.m.s.k.y.]

SatHan

код короче всех. потому шансов на ошибки мизерный. » бред. »

+1024
C использованием IsTask можно нарваться на параноидальный антивирь который блокирует вызов сторонних неизвестных неподписанных библиотек и dll (IsTask в их числе, ога), как следствие получить в инсталлере "Ошибка вызова xxx.dll" и краш инсталлера.
Самый рабочий вариант в моем посте. Не помню кто его мне накидал, или Serega или El Sanchez

[R.i.m.s.k.y.]

тк подумал что пусть он делает что хочет »

дадад, главное потом на руторе не скачать