var sidebar_align = 'right';
var content_container_margin = parseInt('290px');
var sidebar_width = parseInt('270px');
Unanswered: 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');
function TfrmServiceStatus.serviceExists(smachine,Sservice: string):boolean;
schs : SC_Handle;
schm := OpenSCManager(PChar(sMachine),
if (schm <>0) then
schs := OpenService(schm,
Last edited by m.inckle; 07-16-04 at 06:45.