SysErrorMessage函数获取系统错误信息

最新推荐文章于 2020-12-24 21:48:57 发布

sun_software

最新推荐文章于 2020-12-24 21:48:57 发布

阅读量1.5k

点赞数 1

分类专栏：【Delphi&Pascal学习】文章标签： Delphi windows

本文链接：https://blog.csdn.net/sun_jia_shuai/article/details/10940827

版权

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

7 篇文章 0 订阅

订阅专栏

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;

部分结果如图：