#1
  1. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2004
    Posts
    47
    Rep Power
    11

    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
    I.P Address
    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);
    begin
    machinename := edit1.text;
    servicename := 'svcItextIt1';

    if serviceexists(machinename,servicename) then
    begin
    showmessage('svcItextIt1 DOES exist');
    end
    else
    begin
    showmessage('svcItextIt1 DOES NOT exist');
    end;
    end;

    function TfrmServiceStatus.serviceExists(smachine,Sservice:string):boolean;
    var
    schm,
    schs : SC_Handle;

    begin
    schm := OpenSCManager(PChar(sMachine),
    Nil, SC_MANAGER_CONNECT);

    if (schm <>0) then
    schs := OpenService(schm,
    PChar(sService), SERVICE_ALL_ACCESS);

    result:= (schs<>0);
    end;
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Sep 2004
    Posts
    32
    Rep Power
    10
    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 ?

IMN logo majestic logo threadwatch logo seochat tools logo