delphi 在多线程中使用 CreateOleObject 导致失败

最新推荐文章于 2023-12-23 15:43:10 发布

转载最新推荐文章于 2023-12-23 15:43:10 发布 · 3.1k 阅读

本文提供了一段使用Delphi和WMI（Windows Management Instrumentation）API来获取并显示计算机上安装的所有显卡详细信息的代码示例。该示例展示了如何通过Delphi调用WMI来获取显卡名称、制造商、芯片类型、DAC类型、显存大小、当前颜色位数及屏幕分辨率等。

原帖地址

http://bbs.csdn.net/topics/390481350

解决办法

  procedure DisplayVideoInfo;
  var
    wmi, objs, obj : OleVariant;
    enum           : IEnumVariant;
    value          : Cardinal;
  begin
    try
      CoInitialize(nil);//  加上这两句
      wmi := CreateOleObject('WbemScripting.SWbemLocator');
      // ConnectServer无参表示连接本机
      objs := wmi.ConnectServer()
        .ExecQuery('SELECT * FROM Win32_VideoController');
      enum := IUnknown(objs._NewEnum) as IEnumVariant;
      enum.Reset;
      // 扫描每一块显卡
      while enum.Next(1, obj, value) = S_OK do
      begin
        szString.Add('名称　　　　：' + obj.Name);
        szString.Add('制造商　　　：' + obj.AdapterCompatibility);
        szString.Add('芯片类型　　：' + obj.VideoProcessor);
        szString.Add('DAC类型 　　：' + obj.AdapterDACType);
        szString.Add('显存　　　　：' +
          VarToStr(Round(obj.AdapterRAM / 1024 / 1024)) + 'MB');
        szString.Add('颜色　　　　：' + VarToStr(obj.CurrentBitsPerPixel) + '位');
        szString.Add(Format('屏幕分辨率是：%d * %d', [Screen.Width, Screen.Height]));
      end;
    finally
      CoUninitialize();//加上这两句
    end;
  end;