🚀 go-pugleaf

Hi all

Here we go:

1) I create a simple TServiceApplication using the designer in BCB6.

2) Then I add the two events ServiceStart and ServiceStop to respond to the 
service manager.

3) I install the service, start it, stop it, no problems :-)

4) Now I create a blank form and display [MyForm->Show()] it in the 
ServiceStart event.

5) Again I install the service, start it, stop it, no problems :-)

6) Now I add a Button to my form, no events behind.

5) Again I install the service, start it, stop it => it crashes with the 
error EOSError, Code: 1400 Invalid Window Handle.

If I check with the debugger, it crashes when it tries to release my form at 
the end of the application.

The same thing happens when I try to put a TMemo component and write 
something to it.

I have written services before that open Forms in the OnExecute loop.

Is it impossible to display a form when the service starts ? All I want is a 
Splash screen with some information about the startup process of the 
service.
Actually everything works fine during the service, the info is displayed, 
etc. But when the application closes (is closed by the service manager) it 
crashes.

Any ideas ?

Rds
Marc


************
Here is my sample code...



//---------------------------------------------------------------------------
#ifndef ServiceH
#define ServiceH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <SvcMgr.hpp>
#include <vcl.h>
//---------------------------------------------------------------------------
class TTestService : public TService
{
__published:    // Von der IDE verwaltete Komponenten
     void __fastcall ServiceStart(TService *Sender, bool &Started);
     void __fastcall ServiceStop(TService *Sender, bool &Stopped);
private:        // Anwender-Deklarationen
public:         // Anwender-Deklarationen
 __fastcall TTestService(TComponent* Owner);
 TServiceController __fastcall GetServiceController(void);

 friend void __stdcall ServiceController(unsigned CtrlCode);
};
//---------------------------------------------------------------------------
extern PACKAGE TTestService *TestService;
//---------------------------------------------------------------------------
#endif


//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include "Service.h"
#include "MyForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TTestService *TestService;
//---------------------------------------------------------------------------
__fastcall TTestService::TTestService(TComponent* Owner)
 : TService(Owner)
{
}
//---------------------------------------------------------------------------
TServiceController __fastcall TTestService::GetServiceController(void)
{
 return (TServiceController) ServiceController;
}
//---------------------------------------------------------------------------
void __stdcall ServiceController(unsigned CtrlCode)
{
 TestService->Controller(CtrlCode);
}
//---------------------------------------------------------------------------
void __fastcall TTestService::ServiceStart(TService *Sender, bool &Started)
{
     TheForm->Show();
     Started=true;
}
//---------------------------------------------------------------------------
void __fastcall TTestService::ServiceStop(TService *Sender, bool &Stopped)
{
     Stopped=true;
}
//---------------------------------------------------------------------------