作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如何获取显示器的属性?我最感兴趣的是制造商名称和型号类型。我也不想从注册表中获取它。 (有些电脑(例如我的工作电脑)对属性 key 的访问受到限制,因此我宁愿扫描系统总线或除注册表之外的其他内容。)
有什么想法吗?谢谢灵魂之刃
最佳答案
尝试使用Win32_DesktopMonitor
WMI 类。这个类(class)有您正在寻找的所有信息。
检查此示例代码。
program GetWMI_MonitorInfo;
{$APPTYPE CONSOLE}
uses
SysUtils,
ActiveX,
ComObj,
Variants;
function VarStrNull(VarStr:OleVariant):string;//dummy function to handle null variants
begin
Result:='';
if not VarIsNull(VarStr) then
Result:=VarToStr(VarStr);
end;
procedure GetMonitorInfo;
var
objWMIService : OLEVariant;
colItems : OLEVariant;
colItem : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
function GetWMIObject(const objectName: String): IDispatch;
var
chEaten: Integer;
BindCtx: IBindCtx;
Moniker: IMoniker;
begin
OleCheck(CreateBindCtx(0, bindCtx));
OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker));
OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
end;
begin
objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2');
colItems := objWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor','WQL',0);
oEnum := IUnknown(colItems._NewEnum) as IEnumVariant;
if oEnum.Next(1, colItem, iValue) = 0 then
begin
Writeln('Caption '+VarStrNull(colItem.Caption));
Writeln('Description '+VarStrNull(colItem.Description));
Writeln('Device ID '+VarStrNull(colItem.DeviceID));
Writeln('Manufacturer '+VarStrNull(colItem.MonitorManufacturer));//Manufacter
Writeln('Type '+VarStrNull(colItem.MonitorType));//Model
end;
end;
begin
try
CoInitialize(nil);
try
GetMonitorInfo;
Readln;
finally
CoUninitialize;
end;
except
on E:Exception do
Begin
Writeln(E.Classname, ': ', E.Message);
Readln;
End;
end;
end.
关于德尔福7 : Get attached monitor properties,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3904619/
我是一名优秀的程序员,十分优秀!