July 16th, 2004, 06:24 AM
Working with Windows Services using Delphi
I have two computers networked to each other - computer A and computer B.
Computer A has a Windows Service on called 'svcItextIt1'
My aim is to write a program for Computer B, to look at Computer A and see if it has the service installed correctly.
If a put my program on computer A it works fine with the machine name set as :
Machine Name: Blank
sSkills3 (name of computer)
but, no matter what I set machine name to ( I.P address or computer A name ), the service is not being recognised when I run the program on computer B.
Is this possible to do? Could it a network problem?
Please can anyone help or advise me
The code I am using is below
procedure TfrmServiceStatus.btnOKClick(Sender: TObject);
machinename := edit1.text;
servicename := 'svcItextIt1';
if serviceexists(machinename,servicename) then
showmessage('svcItextIt1 DOES exist');
showmessage('svcItextIt1 DOES NOT exist');
schs : SC_Handle;
schm := OpenSCManager(PChar(sMachine),
if (schm <>0) then
schs := OpenService(schm,
September 2nd, 2004, 08:07 AM
What Result you getting from OpenSCManager ????
Check M$ website for the return codes, another quick question is what operating system you got on both machines ?