程式寫入事件檢視器時,無法寫入(描述) |
答題得分者是:syntax
|
borland_delphi70
中階會員 發表:8 回覆:50 積分:51 註冊:2002-12-06 發送簡訊給我 |
procedure TEventLogAgent.LogMessage(Message: String; EventType: DWord; Category: Word; ID: DWord);
var sString: array[0..1] of string; begin sString[0]:= 'Error'; sString[1]:= Message; if FEventLogHandle = 0 then FEventLogHandle := RegisterEventSource(nil, // nil for local computer PChar(FSourceName) // source 來源 ); ReportEvent(FEventLogHandle, //EventLog Handle EventType, //EventType Category, //Category ID, //ID nil, //user SID 2, // one substitution string 0, // 0:no data 1:with data @sString, // pointer to string array nil // pointer to data ); end; 請問各位長官,請問上述程式為何一直無法寫入(描述),感謝。 |
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
ReportEvent(FEventLogHandle, //EventLog Handle
EventType, //EventType Category, //Category ID, //ID nil, //user SID 2, // one substitution string 0, // 0:no data 1:with data @sString[0], // pointer to string array@sString, // pointer to string array nil // pointer to data ); end; 請問各位長官,請問上述程式為何一直無法寫入(描述),感謝。 |
borland_delphi70
中階會員 發表:8 回覆:50 積分:51 註冊:2002-12-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |