Can i somehow monitor when a service starts?
Palli.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
I'm sorry but I forgot to close one more handle (I'm not in a mood today) so the function should be:
function GetLocalServiceStatus(sSer
var
SC : integer;
SHwnd : integer;
ST : _Service_Status;
res : string;
begin
res := '';
SC:=OpenSCManager(nil,nil,
SHwnd:=OpenService(SC,PCha
try
if not QueryServiceStatus(SHwnd,S
res := 'Error: ' + SysErrorMessage(GetLastErr
end else begin
case st.dwCurrentState of
SERVICE_STOPPED : res := 'service stopped';
SERVICE_START_PENDING : res := 'service start pending';
SERVICE_STOP_PENDING : res := 'service stop pending';
SERVICE_RUNNING : res := 'service running';
SERVICE_CONTINUE_PENDING : res := 'service continue pending';
SERVICE_PAUSE_PENDING : res := 'service pause pending';
SERVICE_PAUSED : res := 'service paused';
end;
end;
finally
CloseServiceHandle(SHwnd);
CloseServiceHandle(SC);
end;
result := res;
end;
Regards, Geo
ADMINISTRATION WILL BE CONTACTING palli today.
palli - Repeated follow ups sent, ignored, some are year 2000
Question(s) below appears to have been abandoned. Your options are:
1. Accept a Comment As Answer (use the button next to the Expert's name).
2. Close the question if the information was not useful to you. You must tell the participants why you wish to do this, and allow for Expert response.
3. Ask Community Support to help split points between participating experts, or just comment here with details and we'll respond with the process.
4. Delete the question. Again, please comment to advise the other participants why you wish to do this.
For special handling needs, please post a zero point question in the link below and include the question QID/link(s) that it regards.
http://www.experts-exchang
Please click the Help Desk link on the left for Member Guidelines, Member Agreement and the Question/Answer process. http://www.experts-exchang
Please click you Member Profile to view your question history and keep them all current with updates as the collaboration effort continues, to track all your open and locked questions at this site. If you are an EE Pro user, use the Power Search option to find them.
To view your open questions, please click the following link(s) and keep them all current with updates.
http://www.experts-exchang
http://www.experts-exchang
http://www.experts-exchang
http://www.experts-exchang
http://www.experts-exchang
http://www.experts-exchang
http://www.experts-exchang
PLEASE DO NOT AWARD THE POINTS TO ME.
------------> EXPERTS: Please leave any comments regarding your closing recommendations if this item remains inactive another seven (7) days.
Thank you everyone.
Moondancer
Moderator @ Experts Exchange
P.S. For any year 2000 questions, special attention is needed to ensure the first correct response is awarded, since they are not in the comment date order, but rather in Member ID order.
Business Accounts
Answer for Membership
by: geobulPosted on 2001-11-20 at 03:42:11ID: 6644330
Hi Palli,
The following is a small app that shows the current status of a service, which name has been entered in the Edit box.
You can check the status of your service using Timer (in OnTimer event handler). Save the last status in a variable, compare it every time and when it has changed do something (show message, write log entry, etc.).
Regards, Geo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses Winsvc;
function GetLocalServiceStatus(sSer
var
SC : integer;
SHwnd : integer;
ST : _Service_Status;
res : string;
begin
res := '';
SC:=OpenSCManager(nil,nil,
SHwnd:=OpenService(SC,PCha
if not QueryServiceStatus(SHwnd,S
res := 'Error: ' + SysErrorMessage(GetLastErr
end else begin
case st.dwCurrentState of
SERVICE_STOPPED : res := 'service stopped';
SERVICE_START_PENDING : res := 'service start pending';
SERVICE_STOP_PENDING : res := 'service stop pending';
SERVICE_RUNNING : res := 'service running';
SERVICE_CONTINUE_PENDING : res := 'service continue pending';
SERVICE_PAUSE_PENDING : res := 'service pause pending';
SERVICE_PAUSED : res := 'service paused';
end;
end;
result := res;
end;
procedure TForm1.Button1Click(Sender
begin
Label1.Caption := GetLocalServiceStatus(Edit
end;
end.