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

来源：互联网发布：创维42e380s安装软件编辑：程序博客网时间：2024/05/27 00:40

原帖地址

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;