引言: 我只知道service 寫入事件檢視器的方法是 LogMessage(Message: String; EventType: DWord = 1; Category: Integer = 0; ID: Integer = 0); 但一般的程式可以寫入嗎? 若可以的話,要用什麼方法呢?

TService.LogMessage();是呼叫TEventLogger.LogMessage ,而它的程式如下    procedure TEventLogger.LogMessage(Message: String; EventType: DWord;
  Category: Word; ID: DWord);
var
  P: Pointer;
begin
  P := PChar(Message);
  if FEventLog = 0 then
    FEventLog := RegisterEventSource(nil, PChar(FName));
  ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, @P, nil);
end;    可不可以呢?我不知道(因為沒試過)

引言:

引言: 我只知道service 寫入事件檢視器的方法是 LogMessage(Message: String; EventType: DWord = 1; Category: Integer = 0; ID: Integer = 0); 但一般的程式可以寫入嗎? 若可以的話,要用什麼方法呢?

ives 你好

TService.LogMessage();是呼叫TEventLogger.LogMessage ,而它的程式如下    procedure TEventLogger.LogMessage(Message: String; EventType: DWord;
  Category: Word; ID: DWord);
var
  P: Pointer;
begin
  P := PChar(Message);
  if FEventLog = 0 then
    FEventLog := RegisterEventSource(nil, PChar(FName));
  ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, @P, nil);
end;    可不可以呢?我不知道(因為沒試過)

_______________________________________ 深藍的魚，祝您好運..........連.連

  TEventLogger.LogMessage不是類別的方法，所以你不可以直使用，若真要
用的話，你須先行建立TEventLogger的物件(實體)後再呼叫該物件的LogMessage
方法,如下
Var
  EL : TEventLogger;
Begin
  EL := TEventLogger.Create('WinApp'); // 若不用WinApp 則尚須做一些註冊的動作
  EL.LogMessage(MESSAGE1, 3, 0, 0) ;
  EL.Free;
End;    要不然就自已定義一個Procedure,程序內容照抄就可以啦
Procedure MyLogMessage(Message: String; EventType: DWord;
  Category: Word; ID: DWord);
var
  P: Pointer;
  FName : String ;
begin
  FName := 'WinApp'; // 若不用WinApp 則尚須做一些註冊的動作
  P := PChar(Message);
  if FEventLog = 0 then
    FEventLog := RegisterEventSource(nil, PChar(FName));
  ReportEvent(FEventLog, EventType, Category, ID, nil, 1, 0, @P, nil);
end;    在需要的地方呼叫
  MyLogMessage(MESSAGE1, 3, 0, 0) ;

引言: 非常感謝版主你,已經可以了,只是不懂說若不是 'winapp' 要做註冊的動作是為何? 因為我可以改任何的名子都可以用! 不知道是有何考量?

ives 你好 沒什麼考量，只是Help中如此寫，我也就照寫囉，我也沒試過，或許是我會錯意也有可能。 _______________________________________ <>深藍的魚，祝您好運..........連.連