|
function MAKELANGID(p,s:WORD):DWORD;zZkLinux联盟
beginzZkLinux联盟
Result:=(s shl 10) or p;zZkLinux联盟
end;zZkLinux联盟
zZkLinux联盟
zZkLinux联盟
zZkLinux联盟
VARzZkLinux联盟
Error_Result:DWORD;zZkLinux联盟
lpMsgBuf:ARRAY [0..79] of char;zZkLinux联盟
zZkLinux联盟
zZkLinux联盟
Error_Result:=GetLastError;zZkLinux联盟
if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,Error_Result,zZkLinux联盟
MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),lpMsgBuf,80,nil)>0 thenzZkLinux联盟
Application.MessageBox(lpMsgBuf, 'GetLastError', MB_OK or MB_ICONINFORMATION);zZkLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
