innonewbie
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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;
-------------------------------------------------------------------------------------------------------------------------------------------
var
i: integer;
if IsProcessRunning('.....exe') then
действия
|
