delphi使用outputdebugstring調試程序和寫系統日誌

delphi使用outputdebugstring調試程序和寫系統日誌

procedure TForm1.btn1Click(Sender: TObject);
begin
  OutputDebugString('dddddd');
  OutputDebugString('11');
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  EvtSrcHand: THandle;
  EvtMsg: String;
p:Pointer;
i:integer;
size:integer;
q:^byte;
begin
//註冊事件源，隨便起了個名字。這個名字就是下圖事件列表的’來源’一列
//而後判斷是否成功。
//注意後面要註銷
EvtSrcHand := RegisterEventSource(nil, '測試程序');
if EvtSrcHand = 0 then
begin
ShowMessage('註冊事件源失敗!');
Exit;
end;

//這裏記錄一個字符串
//這個字符串顯示在下面第二個圖選中的位置。
EvtMsg := '記錄字符串';
ReportEvent(EvtSrcHand,EVENTLOG_INFORMATION_TYPE,0, 0, nil, 1, 0, @EvtMsg, nil);

//這裏記錄一塊內存，size大小
size:=32;
//申請
GetMem(p, size);
q := p;

//填充這塊內存
for i := 0 to size - 1 do
begin
q^ := i;
inc(q);
end;

//這裏記錄內存的內容。大小爲size, 首字節的指針p
//一樣也有說明信息msg
EvtMsg := '記錄某塊內存';
ReportEvent(EvtSrcHand,EVENTLOG_INFORMATION_TYPE , 0, 0, nil, 1, size, @EvtMsg, p);
FreeMem(p);
//註銷事件源
DeregisterEventSource(EvtSrcHand);
end;

end.