linux社区爱心援助Linux认证系列教程业界动态站务新闻公司招聘网络学院网址大全LPI专题CISCO专题
设为首页
加入收藏
管理团队
JSP  
JAVA  
PERL  
 您的位置:首页 > 开发语言 > Delphi >
栏目导栏
  php
  JSP
  ASP
  asp.net
  JAVA
  c/c++/c#
  perl
  JavaScript
  Basic
  Delphi
资料搜索
热门文章
·HexToStr函数和StrToHex函数
·Delphi中的进制转换
·delphi轻松设置无边框透明窗体
·delphi第三方控件安装(Ehlib)
·DELPHI组件安装全攻略
·delphi动态创建控件
·开发工具比较Visual C++ VS De
·delphi完整身份证效验程序实例
·delphi中的Format函数详解
·delphi编程获取打印机的打印任
·如何判断文本文件的编码格式
·深入研究Variant数组
·用delphi编写网络游戏的外挂
·Delphi技巧-用户自定义数据类型
·delphi设置控件透明
最新文章
·在应用程序中跟踪MOUSE的坐标
·压缩和修复MS Access 2000文件
·DELPHI 6.0 动画制做
·怎样在Delphi中调用LastError信
·怎样得到主域服务器名称
·怎样利用递归实现删除某一目录
·读出主键下所有项
·如何制作照片底片效果的图像(
·获得Modem的状态
·WebBrowser屏幕滚动的实现,设
·有关字符串处理的小技巧
·Delphi建立键盘鼠标动作纪录与
·Delphi中布尔类型辨析
·DELPHI程序注册码设计
·图形的不规则的Copy
Google
 
怎样在Delphi中调用LastError信息
[ 作者:  加入时间:2007-12-13 12:59:09  来自:Linux联盟收集整理 ]
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论坛讨论
评论】【加入收藏夹】【 】【打印】【关闭
※ 相关链接
 ·Delphi建立键盘鼠标动作纪录与回放  (2007-12-13 12:52:30)
 ·Delphi中布尔类型辨析  (2007-12-13 12:52:03)
 ·DELPHI程序注册码设计  (2007-12-13 12:51:16)
 ·在DELPHI中利用API实现网格内组件的嵌入  (2007-12-13 12:47:17)
 ·用Delphi打造图形界面的Ping程序  (2007-12-03 14:55:11)
 ·Delphi中异常的处理  (2007-12-03 14:50:54)
 ·在Delphi中侦测剪贴板的变化  (2007-12-03 14:48:21)
 ·delphi中的快捷键大收集  (2007-12-03 14:44:45)
 ·如何为Delphi程序添加事件和事件处理器  (2007-12-03 14:44:11)
 ·DELPHI中线程的初步探索  (2007-12-03 14:43:37)