Windows Servislerini Kontrol Etmek

[SimaWB]

Bir başka alternatif WMI kullanmak:

use ActiveX;

function isServiceRunning(ServiceName: string): Boolean;
const
 wbemFlagForwardOnly = $00000020;
var
 FSWbemLocator : OLEVariant;
 FWMIService   : OLEVariant;
 FWbemObjectSet: OLEVariant;
 FWbemObject   : OLEVariant;
 oEnum         : IEnumvariant;
 iValue        : LongWord;
begin;
 FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
 FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
 FWbemObjectSet:= FWMIService.ExecQuery('SELECT Name, State FROM Win32_Service WHERE Name="'+ServiceName+'" and State="Running"','WQL',wbemFlagForwardOnly);
 oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
 if oEnum.Next(1, FWbemObject, iValue) = S_OK then
 begin
   Result := True;
   FWbemObject := Unassigned;
 end
 else
   Result := False;
end;

---

Not: WMI kullanarak uzak makinelerdeki hizmetlerin durumunu da sorgulayabilirsiniz.(Kullanıcı adı ve şifre biliniyorsa)

---

(09-10-2017, Saat: 13:12)r3n4m3 Adlı Kullanıcıdan Alıntı: Merhabalar

Gerekli paylaşım güzel olmuş bir sorum olacaktı her winde çalışır mi 7,10 gibi

Teşekkürler

Çalışır.
MSDN'ye bakıldığında kullanılan Windows API'lerin desteklendiği işletim sistemleri için şunlar yazıyor:
Minimum supported client -> Windows XP [desktop apps only]
Minimum supported server -> Windows Server 2003 [desktop apps only]

https://msdn.microsoft.com/en-us/library...s.85).aspx
https://msdn.microsoft.com/en-us/library...s.85).aspx
https://msdn.microsoft.com/en-us/library...s.85).aspx