各位，请高手写段代码，功能是向WINDOWS系统日志中写入自己的内容(100分)

如题

各位，请高手写段代码，功能是向WINDOWS系统日志中写入自己的内容

procedure write_win_event(chr:string); // 写windows事件日志
var
h:THandle;
ps:array[0..0] of PChar;
begin
if not record_winsys_log then exit;
h:=RegisterEventSource(nil,PChar(syscaption)); // 'Application'
ps[0]:=PChar(operid+'-'+oper+':'+chr); // 'simon测试写入windows系统日志';
if not ReportEvent(h,EVENTLOG_INFORMATION_TYPE,0{随便},10000{随便},nil,1,0,@ps,nil) then
RaiseLastWin32Error;
DeregisterEventSource(h);
end;

接受答案了.

找到个更详细的

http://www.mybr.org/thread-26454-1-2.html