本文整理自网络,侵删。
{$APPTYPE CONSOLE}
uses SysUtils, ActiveX, ComObj, Variants;
procedure GetWin32_VideoControllerInfo;const WbemUser =''; WbemPassword =''; WbemComputer ='localhost'; wbemFlagForwardOnly = $00000020;var FSWbemLocator : OLEVariant; FWMIService : OLEVariant; FWbemObjectSet: OLEVariant; FWbemObject : OLEVariant; oEnum : IEnumvariant; iValue : LongWord;begin; FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword); FWbemObjectSet:= FWMIService.ExecQuery('SELECT Name,PNPDeviceID FROM Win32_VideoController','WQL',wbemFlagForwardOnly); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; while oEnum.Next(1, FWbemObject, iValue) = 0 do begin Writeln(Format('Name %s',[String(FWbemObject.Name)]));// String Writeln(Format('PNPDeviceID %s',[String(FWbemObject.PNPDeviceID)]));// String Writeln; FWbemObject:=Unassigned; end;end;
begin try CoInitialize(nil); try GetWin32_VideoControllerInfo; finally CoUninitialize; end; except on E:EOleException do Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); on E:Exception do Writeln(E.Classname, ':', E.Message); end; Writeln('Press Enter to exit'); Readln; end.
相关阅读 >>
Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等
Delphi中从windows资源管理器中拖放图片到timage控件上
关于公历与农历换算和时间处理的单元 calendar.pas
更多相关阅读请进入《Delphi》频道 >>