🚀 go-pugleaf

"Azrin Aris" <azrin_aris@yahoo.com> wrote in message
news:418bf38c@newsgroups.borland.com...

> how do I set the Description of the service?

TService was written before services supported descriptions, and TService
has not been updated since then, so TService does not natively implement
what you ask for.  You will have to assign the description manually.  You
should use the ChangeServiceConfig2() API function for that.  Note, however,
that ChangeServiceConfig2() does not exist on Windows NT, so if you intend
to run your service on NT then you will have to dynamically load the
function at run-time.  For example:

    void __fastcall TMyService::ServiceAfterInstall(TService *Sender)
    {
        typedef BOOL WINAPI LPFN_CSC2A(SC_HANDLE, DWORD, LPVOID);

        HINSTANCE hInst = LoadLibrary("advapi32.dll");
        if( hInst )
        {
            LPFN_CSC2A lpChangeServiceConfig2A = (LPFN_CSC2A)
GetProcAddress(hInst, "ChangeServiceConfig2A");
            if( lpChangeServiceConfig2A )
            {
                SC_HANDLE hManager = OpenSCManager(NULL, NULL,
SC_MANAGER_ALL_ACCESS);
                if( hManager )
                {
                    SC_HANDLE hService = OpenService(schSCManager,
Sender->Name.c_str(), SERVICE_CHANGE_CONFIG);
                    if( hService )
                    {
                        SERVICE_DESCRIPTION sd = {0};
                        sd.lpDescription = "My Description Here";

                        lpChangeServiceConfig2A(hService,
SERVICE_CONFIG_DESCRIPTION, &sd);
                        CloseServiceHandle(hService);
                    }
                    CloseServiceHandle(hManager);
                }
            }
            FreeLibrary(hInst);
        }
    }


Gambit