Определение параметров видеосистемы

Определение параметров видеосистемы

procedure TForm1.FormCreate(Sender: TObject);
var
lpDisplayDevice: TDisplayDevice; //для имени видеокарты

Reg:TRegistry;        //для имени монитора
SubKeys:TStringList;  //для имени монитора
MonitorName:string;   //для имени монитора

H,W,B,F:integer;  //настройки монитора

begin

//имя видеокарты
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
if  EnumDisplayDevices(nil, 0, lpDisplayDevice, 0) then
Label2.Caption:='Видеоадаптер: '+lpDisplayDevice.DeviceString;

//настройки монитора
h:=screen.Height;
w:=screen.Width;
b:=GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL);
f:=GetDeviceCaps(Form1.Canvas.Handle, VREFRESH);
Label4.Caption:='Видеорежим: '+inttostr(w)+'x'+inttostr(h)+' '
+inttostr(b)+'bit '+inttostr(f)+'Hz';

//имя монитора
Reg:=TRegistry.Create;
with Reg do
begin
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKeyReadOnly('SYSTEM\ControlSet001\Enum\DISPLAY\Default_Monitor');
SubKeys := TStringList.Create;
GetKeyNames(SubKeys);
OpenKeyReadOnly(SubKeys[0]);
MonitorName:=ReadString('DeviceDesc');
if MonitorName='' then //если не удалось получить имени монитора
begin
Label3.Caption:='Монитор:  не удалось определить';
exit;
end;
Label3.Caption:='Монитор: '+MonitorName; //если получили имя монитора выводим
SubKeys.Free;
Free;
Except //если произошел вообще какой-то глюк при работе с реестром
Label3.Caption:= 'Монитор:  не удалось определить';
end;

end;

Эта запись была добавлена в Суббота, 10 мая, 2008 - 13:14 В разделы Аппаратные средства, Видеосистема. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.