[将书上的摘抄一些,便于自己理解]
1. 既然是写程序,就不能避免错误,了解windows的错误处理是debug的必修课,也就是通过错误处理和返回我们能够知道编写的函数运行成还是失败,按照书上所说,微软编译了一个所有可能的错误代码的列表，并且为每个错误代码分配了一个3 2位的号码。
G e t L a s t E r r o r函数：
DWORD GetLastError(); //返回线程的3 2位错误代码
当Wi n d o w s函数运行失败时，应该立即调用G e t L a s t E r r o r函数。如果调用另一个Wi n d o w s函数，它的值很可能被改写。
2. 32位错误代码的域(从高位31到低位0)如下表示:
| 位 | 31~30 | 29 | 28 | 27~16 | 15~0 |
| 内容含义 | 严重性 0=成功 1=供参考 2=警告 3=错误 | 0=微软定义的代码 1=客户定义的代码 | 保留 必须是0 | 设备代码 微软定义 | 异常代码 微软定义 |
3.查看错误代码含义的示例
书上的是c++的,MFC一贯让我很迷糊,所以后续示例都用delphi重写.
unit UnitErrorShow; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFormErrorShow = class(TForm) Label1: TLabel; EditCode: TEdit; chkTop: TCheckBox; MemoShow: TMemo; btnLookup: TButton; procedure btnLookupClick(Sender: TObject); procedure chkTopClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormErrorShow: TFormErrorShow; implementation {$R *.dfm} function MAKELANGID(_p, _s: Word): DWORD; begin Result := (_s shl 10) or (_p); end; procedure TFormErrorShow.btnLookupClick(Sender: TObject); var dwError: DWORD; hlocal: THandle; fOk: DWORD; hDll: HMODULE; begin MemoShow.Clear; hlocal := 0; try dwError := StrToInt(EditCode.Text); except ShowMessage('输入有错误,请输入数字!'); EditCode.SetFocus; end; fOk := FormatMessage(// FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ALLOCATE_BUFFER, // nil, // dwError, // MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // PChar(@hlocal), // 0, // nil); //ShowMessage(IntToStr(hlocal)); {判断是否为网络相关错误} if (fOk = 0) then begin hDll := LoadLibraryEx('netmsg.dll', 0, DONT_RESOLVE_DLL_REFERENCES); if (hDll <> 0) then begin FormatMessage(// FORMAT_MESSAGE_FROM_HMODULE or FORMAT_MESSAGE_FROM_SYSTEM, // @hDll, // dwError, // MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), // PChar(@hlocal), // 0, // nil); FreeLibrary(hDll); end; end; if hlocal <> 0 then begin MemoShow.Lines.Add(PChar(LocalLock(hlocal))); LocalFree(hlocal); end else begin MemoShow.Lines.Add('不可识别的错误代码!'); end; end; procedure TFormErrorShow.chkTopClick(Sender: TObject); begin if chkTop.Checked = True then Self.FormStyle := fsStayOnTop else Self.FormStyle := fsNormal; end; end.
[摘录]如果F o r m a t M e s s a g e函数运行成功，那么错误代码的文本描述就位于内存块中，将它拷贝到对话框底部的滚动窗口中。如果F o r m a t M e s s a g e函数运行失败，设法查看N e t M s g . d l l模块中的消息代码，以了解该错误是否与网络有关。使用N e t M s g . d l l 模块的句柄，再次调用F o r m a t M e s s a g e函数。
这样重写以后,思路清晰了很多,但是有一个问题,我没有在delphi中找到MAKELANGID函数(看来对delphi的函数还需要下大功夫),在VS中,它定义的是一个宏,因此只能自己写一个函数.后边还会有很多的需要转换的东西,感觉VCL确实比MFC要好用,至少在一般的win32程序中,我会首选VCL,这样也有一个好处,如果用的是VC,那么我或许只是照抄了一边,但现在,我需要面对可能出现的变量重定义问题,无形之中就把delphi中的东西也过了一边,加深了印象.