Цитата 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 нужно учитывать и комстроку). В общем, отложил задачу напотом, извиняйте.
