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

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Определение видеокарты

 

Зависимости: Windows

Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol

Copyright:   Gua

Дата:        18 июля 2002 г.

********************************************** }

 

function GetDisplayDevice: string;

var

lpDisplayDevice: TDisplayDevice;

begin

lpDisplayDevice.cb := sizeof(lpDisplayDevice);

EnumDisplayDevices(nil, 0, lpDisplayDevice , 0);

Result:=lpDisplayDevice.DeviceString;

end;

 

©Drkb::01337