SysErrorMessage函数获取系统错误信息

最新推荐文章于 2024-03-12 20:52:40 发布

原创最新推荐文章于 2024-03-12 20:52:40 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #windows

【Delphi&Pascal学习】专栏收录该内容

7 篇文章

订阅专栏

本文通过一个简单的Delphi程序示例，展示了如何遍历并获取Windows操作系统的错误消息。此程序使用了SysErrorMessage函数来获取从0到15301的所有有效错误索引对应的错误消息，并将它们输出到一个文本框中。

procedure TFormMain.btnTestClick(Sender: TObject);
var
  v_Index: Integer;
  v_ErrMsg: string;
begin
  for v_Index := 0 to 15301 do
  begin
    v_ErrMsg := SysErrorMessage(v_Index);
    if v_ErrMsg <> '' then
    begin
      MmoTest.Lines.Add(IntToStr(v_Index) + ' = ' + v_ErrMsg);
    end;
  end;
end;

部分结果如图：