Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Внизкак определить МОДЕЛЬ МОНИТОРА? Найти похожие ветки
← →
Андрей Татуков (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 вся ветка
Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c