I try to manipulate the (D)COM permissions necessary for the server
before the Service is created.
CoInitializeEx(nil,CoInitFlags);
CoInitializeSecurity(nil,-1,nil,nil,
RPC_C_AUTHN_LEVEL_NONE,
RPC_C_IMP_LEVEL_IDENTIFY,nil,0,nil);
if ServiceInstalling then
begin
SvcMgr.Application.Initialize;
end;
SvcMgr.Application.CreateForm(TMyService, MyService);
SvcMgr.Application.Run;
Although I added an TApplicationEvent-Handler handling the onIdle
Event as mentionend my client application always get's a timeout.
Can anybody help me?
Thanks,
Stefan Berndt