마음의 안정을 찾기 위하여 - [Delphi] ...check if a service is running?
1831612
184
470
관리자새글쓰기
태그위치로그방명록
별일없다의 생각
dawnsea's me2day/2010
색상(RGB)코드 추출기(Color...
Connection Generator/2010
최승호PD, '4대강 거짓말 검...
Green Monkey**/2010
Syng의 생각
syng's me2DAY/2010
천재 작곡가 윤일상이 기획,...
엘븐킹's Digital Factory/2010
[Delphi] ...check if a service is running?
Delphi/윈도우즈 | 2020/12/28 11:19
 출처 :  https://www.swissdelphicenter.ch/en/showcode.php?id=1275

uses
  WinSvc;

function ServiceGetStatus(sMachine, sService: PChar): DWORD;
  {******************************************}
  {*** Parameters: ***}
  {*** sService: specifies the name of the service to open
  {*** sMachine: specifies the name of the target computer
  {*** ***}
  {*** Return Values: ***}
  {*** -1 = Error opening service ***}
  {*** 1 = SERVICE_STOPPED ***}
  {*** 2 = SERVICE_START_PENDING ***}
  {*** 3 = SERVICE_STOP_PENDING ***}
  {*** 4 = SERVICE_RUNNING ***}
  {*** 5 = SERVICE_CONTINUE_PENDING ***}
  {*** 6 = SERVICE_PAUSE_PENDING ***}
  {*** 7 = SERVICE_PAUSED ***}
  {******************************************}
var
  SCManHandle, SvcHandle: SC_Handle;
  SS: TServiceStatus;
  dwStat: DWORD;
begin
  dwStat := 0;
  // Open service manager handle.
  SCManHandle := OpenSCManager(sMachine, nil, SC_MANAGER_CONNECT);
  if (SCManHandle > 0) then
  begin
    SvcHandle := OpenService(SCManHandle, sService, SERVICE_QUERY_STATUS);
    // if Service installed
    if (SvcHandle > 0) then
    begin
      // SS structure holds the service status (TServiceStatus);
      if (QueryServiceStatus(SvcHandle, SS)) then
        dwStat := ss.dwCurrentState;
      CloseServiceHandle(SvcHandle);
    end;
    CloseServiceHandle(SCManHandle);
  end;
  Result := dwStat;
end;

function ServiceRunning(sMachine, sService: PChar): Boolean;
begin
  Result := SERVICE_RUNNING = ServiceGetStatus(sMachine, sService);
end;

// Check if Eventlog Service is running
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ServiceRunning(nil, 'Eventlog') then
    ShowMessage('Eventlog Service Running')
  else
    ShowMessage('Eventlog Service not Running')
end;

{
  Windows 2000 and earlier: All processes are granted the SC_MANAGER_CONNECT,
  SC_MANAGER_ENUMERATE_SERVICE, and SC_MANAGER_QUERY_LOCK_STATUS access rights.

  Windows XP: Only authenticated users are granted the SC_MANAGER_CONNECT,
  SC_MANAGER_ENUMERATE_SERVICE,
  and SC_MANAGER_QUERY_LOCK_STATUS access rights.
}

{
  Do not use the service display name (as displayed in the services
  control panel applet.) You must use the real service name, as
  referenced in the registry under
  HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services
}
2020/12/28 11:19 2020/12/28 11:19
Article tag list Go to top
View Comment 2
Trackback URL :: 이 글에는 트랙백을 보낼 수 없습니다
From. lista przebojów top20 wszech czasów 2021/01/14 01:22
답글달기삭제
lista przebojów

Zapraszamy do głosowania do lista przebojów top20, która obejmuje wszystko to co wydarzyło się w muzyce od 1940 do dnia dzisiejszego.

Zagłosuj już dziś !! Zgłoś swoją muzyczną propozycje z lat 40, lat 50, lat 60, lat 70, lat 80, lat 90 lub też obecnych. Wybierz swoje listę przebojów top20

Zgłoś propozycje do top20 wszech czasów
From. montaż anteny Gliwice 2021/01/15 01:19
답글달기삭제
ustawienie anten Gliwice
TvSatSerwis.net wykonuje naprawa anten satelitarnych na terenie miasta Gliwic jak i okolic. W swojej ofercie posiadamy Montaż anteny, ustawienie anteny satelitarnej: NC+ ( Cyfra plus, Telewizja N ), Cyfrowy Polsat, Orange TP jak i Montaż anteny, ustawienie anteny naziemnych DVB-T, anten radiowych w tym montaż telewizorów na ścianie wraz z niezbędnymi akcesoriami tv-sat. Dodatkowo oferujemy też usługi muliroom wraz z prowadzeniem przewodów internetowych jak i konfiguracją połączeń bezprzewodowych WI-FI. Swoje usługi świadczymy na terenie miast : Gliwice, Zabrze, Knurów, Pyskowice, Tarnowskie Góry, Ruda Śląska, Bytom, Chorzów, Mikołów i okolice. W razie pytań, prosimy o kontakt, telefon: 692 188 376
PREV : [1] : NEXT
 
 
 
 
PREV : [1][2][3][4][5] ... [851] :
«   2021/01   »
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            
전체 (851)
출판 준비 (0)
My-Pro... (41)
사는 ... (492)
블로그... (22)
My Lib... (32)
게임 ... (23)
개발관... (3)
Smart ... (1)
Delphi (76)
C Builder (0)
Object... (0)
VC, MF... (9)
Window... (1)
Open API (3)
Visual... (0)
Java, JSP (2)
ASP.NET (0)
PHP (4)
Database (12)
리눅스 (28)
Windows (21)
Device... (1)
Embedded (1)
게임 ... (0)
Web Se... (2)
Web, S... (19)
잡다한... (5)
프로젝트 (0)
Personal (0)
대통령... (9)
Link (2)