Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to get a list of installed services Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
15-Jan-03
Category
Security
Language
Delphi 2.x
Views
158
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			 Author: Tomas Rutkauskas

Want to get a list of active, inactive or all Windows services?

Answer:

Following function can help you to do this, but be sure to read other Windows 
services related tips for details. 

1   const
2     //
3     // Service Types
4     //
5     SERVICE_KERNEL_DRIVER = $00000001;
6     SERVICE_FILE_SYSTEM_DRIVER = $00000002;
7     SERVICE_ADAPTER = $00000004;
8     SERVICE_RECOGNIZER_DRIVER = $00000008;
9   
10    SERVICE_DRIVER =
11      (SERVICE_KERNEL_DRIVER or
12      SERVICE_FILE_SYSTEM_DRIVER or
13      SERVICE_RECOGNIZER_DRIVER);
14  
15    SERVICE_WIN32_OWN_PROCESS = $00000010;
16    SERVICE_WIN32_SHARE_PROCESS = $00000020;
17    SERVICE_WIN32 =
18      (SERVICE_WIN32_OWN_PROCESS or
19      SERVICE_WIN32_SHARE_PROCESS);
20  
21    SERVICE_INTERACTIVE_PROCESS = $00000100;
22  
23    SERVICE_TYPE_ALL =
24      (SERVICE_WIN32 or
25      SERVICE_ADAPTER or
26      SERVICE_DRIVER or
27      SERVICE_INTERACTIVE_PROCESS);
28  
29  uses WinSvc;
30  
31  //-------------------------------------
32  // Get a list of services
33  //
34  // return TRUE if successful
35  //
36  // sMachine:
37  //   machine name, ie: \\SERVER
38  //   empty = local machine
39  //
40  // dwServiceType
41  //   SERVICE_WIN32,
42  //   SERVICE_DRIVER or
43  //   SERVICE_TYPE_ALL
44  //
45  // dwServiceState
46  //   SERVICE_ACTIVE,
47  //   SERVICE_INACTIVE or
48  //   SERVICE_STATE_ALL
49  //
50  // slServicesList
51  //   TStrings variable to storage
52  //
53  
54  function ServiceGetList(
55    sMachine: string;
56    dwServiceType,
57    dwServiceState: DWord;
58    slServicesList: TStrings)
59    : boolean;
60  const
61    //
62    // assume that the total number of
63    // services is less than 4096.
64    // increase if necessary
65    cnMaxServices = 4096;
66  
67  type
68    TSvcA = array[0..cnMaxServices]
69      of TEnumServiceStatus;
70    PSvcA = ^TSvcA;
71  
72  var
73    //
74    // temp. use
75    j: integer;
76  
77    //
78    // service control
79    // manager handle
80    schm: SC_Handle;
81  
82    //
83    // bytes needed for the
84    // next buffer, if any
85    nBytesNeeded,
86  
87    //
88    // number of services
89    nServices,
90  
91    //
92    // pointer to the
93    // next unread service entry
94    nResumeHandle: DWord;
95  
96    //
97    // service status array
98    ssa: PSvcA;
99  begin
100   Result := false;
101 
102   // connect to the service
103   // control manager
104   schm := OpenSCManager(
105     PChar(sMachine),
106     nil,
107     SC_MANAGER_ALL_ACCESS);
108 
109   // if successful...
110   if (schm > 0) then
111   begin
112     nResumeHandle := 0;
113 
114     New(ssa);
115 
116     EnumServicesStatus(
117       schm,
118       dwServiceType,
119       dwServiceState,
120       ssa^[0],
121       SizeOf(ssa^),
122       nBytesNeeded,
123       nServices,
124       nResumeHandle);
125 
126     //
127     // assume that our initial array
128     // was large enough to hold all
129     // entries. add code to enumerate
130     // if necessary.
131     //
132 
133     for j := 0 to nServices - 1 do
134     begin
135       slServicesList.
136         Add(StrPas(
137         ssa^[j].lpDisplayName));
138     end;
139 
140     Result := true;
141 
142     Dispose(ssa);
143 
144     // close service control
145     // manager handle
146     CloseServiceHandle(schm);
147   end;
148 end;
149 
150 //To get a list of all Windows services into a listbox named ListBox1: 
151 
152 ServiceGetList('', SERVICE_WIN32, SERVICE_STATE_ALL, ListBox1.Items);


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC