精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>[文章]取得系统的错误信息。

主题:[文章]取得系统的错误信息。
发信人: 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]

[关闭][返回]