Wie benutze ich TService.LogMessage?

[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;                                                                           
//-----------------------------------------------------------------------------^