Wie benutze ich TService.LogMessage?

[Chewie]

Sobald ich in einem Service oben genannte Methode aufrufe, bekomme ich einen Fehler. Da ich in meinem Fall beim Initialisieren des Service die Log-Nachricht erstellen will, startet der Service erst gar nicht, sondern nach einigen Sekunden Wartezeit wird folgende Fehlermeldung ausgegeben:

Zitat:

---------------------------
Microsoft Management Console
---------------------------
Der Dienst "UCEngine" auf "Lokaler Computer" konnte nicht gestartet werden.



Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung.
---------------------------
OK
---------------------------

Kann mir da einer helfen?

[Chewie]

Die Sache hat sich erledigt.

Ich hattbe die Methode im Create-Ereignis des Service-Objektes aufgerufen. Wenn ich den Aufruf nun aber ins OnStart-Ereignis verlagere, klappts.

[Silicium]

ich hab endlos Probleme mit dem Unit.

kannst du mir nicht deinen Codeschnipsel hier reinposten?

Gruss :)

-edit-

also den schnipsel wo du was in die eventlog schreibst :p


-edit-

Delphi-Quellcode:

//------------------------ FUNKTION ZUM GENERIEREN EINES ERROR REPORTES--------.,
//das unit WINDOWS wird benötigt.                                              
function WriteReport(Title:string;ErrMsg:String;ErrType:Cardinal):boolean;     
  var                                                                          
  lEventLog   : THandle;                                                       
  lValue      : PChar;                                                         
  lLength     : integer;                                                       
  lSomeString : string;                                                        
begin                                                                          
                                                                              
  lEventLog := RegisterEventSource(nil, PChar(Title));                         
                                                                               
  lLength := Length(ErrMsg) + 2;                                               
                                                                               
  lValue := AllocMem(lLength);                                                 
  StrPCopy(lValue, ErrMsg);                                                    
                                                                               
  ReportEvent(lEventLog, ErrType, 0, 0, nil, 1, 0, @lValue, nil);              
end;                                                                           
//-----------------------------------------------------------------------------^