Скачать: CL | DM;

как определить МОДЕЛЬ МОНИТОРА?   Найти похожие ветки 

← →
Андрей Татуков   (2002-01-25 17:05) [0]

Модель, фирму-изготовителя и т.п....
Может кто знает ? За что дергать хотя бы ?

---

← →
Olfi ©   (2002-01-25 17:37) [1]

У меня сейчас таже проблема... Дёргать навеное за ДРВ надо, только как, не знаю...

---

← →
Херувим   (2002-01-25 18:00) [2]

В реестре покапайтесь, но под Win2k все моники как и харды висят до переустановки Мастдая...

---

← →
Андрей Татуков   (2002-01-25 19:17) [3]

реестр - это хорошо, но хочется узнать все от монитора...
вот в чем штука.

---

← →
андрей Татуков   (2002-01-26 15:12) [4]

Ну вот - определение текущего монитора (Win98).

Uses Registry,....;

Вызов : ----------------------------------------------
reg:=TRegistry.Create;
Label1.Caption:=GetCurrentDevice(reg,"Monitor");
reg.Free;
------------------------------------------------------
function TForm1.GetCurrentDevice (reg: Tregistry; DevName:string):string;
var
keys:TStringList;
s,t:string;
i:integer;
const
k1:string ="\Config Manager\Enum";
k2:string ="\Enum\";
begin
s:="";
DevName:=UPPERcase(DevName);
reg.RootKey := HKEY_DYN_DATA;
if (reg.OpenKey(k1,false)) then
begin
keys:=TStringList.Create;
reg.GetKeyNames(keys);
for i:=0 to Keys.Count-1 do
begin
reg.OpenKey(k1+"\"+Keys.strings[i],false);
try t:=reg.ReadString("HardWareKey");
except t:=""; end;
if Pos(DevName+"\",t)=1 then
begin
s:=t; break;
end;
end;
keys.Free;
if Length(s)>1 then
begin
reg.RootKey := HKEY_LOCAL_MACHINE;
if (reg.OpenKey(k2+s,false)) then
begin
try s:=reg.ReadString("DeviceDesc");
except s:=""; end;
end;
end;
end;
result:=s;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c