Delphi的错误处理，简单...（在线等待，马上给分）

Question

你 可 以 在 winerror.h中 找 到 错 误 码 的 符 号 定 义 ， 从 中 可 以 知 道 错 误 的 大 体 含 义 。 也 可 以 使 用 FormatMessage得 到 该 错 误 对 应 的 字 符 串 。 下 面 的 文 章 摘 自 “ 北 京 理 工 大 学 BBS” ： 
    发 信 人 : ZhiShao (De macau), 信 区 : C 
    标 题 : 错 误 处 理 
    发 信 站 : 京 工 飞 鸿 (Tue Nov 14 13:39:07 2000), 转 信 
     
    在 VC中 编 写 应 用 程 序 时 ， 经 常 需 要 涉 及 到 错 误 处 理 问 题 。 许 多 函 数 调 用 只 用 TRUE和 FALSE来 表 明 函 数 的 运 行 结 果 。 一 旦 出 现 错 误 ， MSDN中 往 往 会 指 出 请 用 GetLastError()函 数 来 获 得 错 误 原 因 。 
    可 问 题 是 ， GetLastError()返 回 的 只 是 一 个 双 字 节 数 值 （ DWORD） 。 OH， MY GOD！ 目 前 Win32的 出 错 编 号 已 经 从 0排 到 11031， 而 这 还 不 是 错 误 编 码 的 全 部 。 因 为 错 误 代 码 还 在 不 断 增 加 。 
    我 想 没 有 人 愿 意 自 己 去 查 出 错 编 码 所 对 应 的 错 误 信 息 。 好 在 Windows（ Windows95以 上 ， Window NT 3.1以 上 ） 已 经 提 供 了 现 成 的 错 误 信 息 处 理 函 数 ： FormatMessage()。 以 下 是 用 FormatMessage()得 到 由 GetLastError()返 回 的 出 错 编 码 所 对 应 错 误 信 息 的 示 例 ： 
    LPVOID lpMsgBuf; 
    FormatMessage( 
     FORMAT_MESSAGE_ALLOCATE_BUFFER | 
     FORMAT_MESSAGE_FROM_SYSTEM | 
     FORMAT_MESSAGE_IGNORE_INSERTS, 
     NULL, 
     GetLastError(), 
     MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language 
     (LPTSTR) &lpMsgBuf, 
     0, 
     NULL 
    ); 
     
    // Process any inserts in lpMsgBuf. 
    // ... 
     
    // Display the string. 
    MessageBox( NULL, (LPCTSTR)lpMsgBuf, "Error", MB_OK | MB_ICONINFORMATION ); 
     
    // Free the buffer. 
    LocalFree( lpMsgBuf ); 
    不 过 有 一 点 比 较 可 笑 ， “ 该 函 数 调 用 如 果 出 错 ， 将 返 回 0值 ， 需 要 获 取 错 误 信 息 ， 请 调 用 GetLastError()” 。