怎样在Delphi中调用LastError信息

时间:2010-02-26 18:24:24  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:LastError;if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,Error_Result,MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),lpMsgBuf,80,nil)>0 thenApplication.MessageBox(lpMsgBuf, 'GetLastError', MB_OK or MB_ICONINFORMATION); ...
  正文:function MAKELANGID(p,s:word):DWORD;
begin
  Result:=(s shl 10) or p;
end;



VAR
Error_Result:DWORD;
lpMsgBuf:ARRAY [0..79] of char;


Error_Result:=GetLastError;
if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,Error_Result,
MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),lpMsgBuf,80,nil)>0 then
Application.MessageBox(lpMsgBuf, 'GetLastError', MB_OK or MB_ICONINFORMATION);
"怎样在Delphi中调用LastError信息"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12933.html


关键字:

关于《怎样在Delphi中调用LastError信息》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td