イベントログに出力する イベントログに出力する
| ■ イベントログを出力する例 |
procedure TService1.Service1Create(Sender: TObject);
var
Eventlog : TEventLogger;
begin
Eventlog := TEventLogger.Create('NAME');
Eventlog.LogMessage('サービスを開始します。', EVENTLOG_INFORMATION_TYPE);
Eventlog.Free;
end;
|
| ログの種類 | |
| EVENTLOG_ERROR_TYPE | 赤に× |
| EVENTLOG_WARNING_TYPE | 黄色に！ |
| EVENTLOG_INFORMATION_TYPE | 青に ｉ |