Определение видеокарты
Falk0ner, вс, 06/07/2008 - 15:34.
Определение видеокарты
{ **** UBPFD *********** by kladovka.net.ru ****
>>
Зависимости: Windows
Автор: Gua, <a href="mailto:gua@ukr.net">gua@ukr.net</a>, 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;
>>
Зависимости: Windows
Автор: Gua, <a href="mailto:gua@ukr.net">gua@ukr.net</a>, 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;
ADS
Отправить комментарий