发信人: kingron@GZ()
整理人: teleme(2001-02-11 10:52:23), 站内信件
|
标 题: [文章]取得系统的错误信息。 发信站: 网易虚拟社区 (Sat Nov 4 08:32:47 2000), 站内信件
下面这个函数可以取得中文的错误信息,你只要在你的操作后面马上调用这个函 数即可。
例如:
winexec('a:',sw_show);
ShowMessage(GetErrorMessage);
.....
//Get System Error Message,No parameter;
//You Must invork the function immediately after you operation
Function GetErrorMessage:string;
var
buf:pchar;
i:integer;
begin
i:=GetLastError;
GetMem(buf,500);
formatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,i,$400,buf,500,nil);
result:=buf;
freeMem(buf);
end;
-- E_Mail:[email protected] OICQ:10228518
<BLINK>【</BLINK>
<BLINK>◎■■■■〓〓〓〓〓〓〓〓〓〓></BLINK> ◆没有最好,只有更好◆
<BLINK> 【</BLINK>
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.137.31.195]
|
|