Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1209
Благодарности: 949

Профиль | Отправить PM | Цитировать


Цитата R.i.m.s.k.y.:
каким макаром можно в инно узнать запущен ли экзешник %appname.exe%? »
R.i.m.s.k.y.,
Код: Выделить весь код
[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;
Цитата lmiol:
эммм не хочеться тревожить лишний раз и настойчиво просить, но все же не поможет ктонибуть по моему посту который я оставил 11 дней назад »
lmiol, единственный вариант, что мне пришел в голову, это создание кастомного ComponentsList, наполнение которого зависело бы от радиокнопок Standart/Pro (как на скрине). Свою страницу с радиокнопками создать-то можно, как и кастомный ComponentsList, но с синхронизацией кастомного и визардовского List'ов тяжело (там еще и TypesCombo нужно учитывать и комстроку). В общем, отложил задачу напотом, извиняйте.
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:17, 30-05-2011 | #1693