Узнать все данные о видеокарте

[alex724842]

всем привет!
подскажите мне как узнать все данные в делфи о видеокарте???
ну чтобы я на форме нажал кнопку и допустим в поле вписались бы все данные о видеокарте!желательно все о видеопроцессоре,вплоть до температуры!это возможно?очень срочно!!

[mihali4]

По карте и температуре дам:

Как определить видеокарту

var 
lpDisplayDevice: TDisplayDevice; 
dwFlags: DWORD; 
cc: DWORD; 
begin 
memo1.Clear; 
lpDisplayDevice.cb := sizeof(lpDisplayDevice); 
dwFlags := 0; 
cc:= 0; 
while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do 
begin 
Inc(cc); 
memo1.lines.add(lpDisplayDevice.DeviceString);
end;
end; 

Температура для NVidia:

function GetTemperaturNVDIA: Cardinal;
type
  NvCplGetThermalSettings = function(WindowsMonitorNumber: UINT;pGpuTemp, pUmgebTemp, pSlowDownTemp: Pointer): BOOL;stdcall;
var
  hInstNvcpl: THandle;
  GetThermalSettings: NvCplGetThermalSettings;
  UmgebTemp, SlowDownTemp: cardinal;
begin
Result := 0;
UmgebTemp := 0;
SlowDownTemp := 0;
hInstNvcpl := LoadLibrary('nvcpl.dll');
if hInstNvcpl <> 0 then
   try
     GetThermalSettings:= GetProcAddress(hInstNvcpl,'NvCplGetThermalSettings');
     if Assigned(GetThermalSettings)  then
        GetThermalSettings(0, Addr(Result), Addr(UmgebTemp), Addr(SlowDownTemp));
    finally
        FreeLibrary(hInstNvcpl);
    end;
end;

Как вы поняли, функция определения температуры весьма зависит от производителя карты.
Надеюсь, дальше "доковыряете" сами.

[alex724842]

про данные о видеокарте,я знал,работает,но слишком мало данных!
а температура не работает!мне бы побольше даных надо ну все оп роцессере видео и т.д.

[mihali4]

Сообщение от alex724842

а температура не работает!

Ну да?
А вы уверены, что у вас NVidia? У меня прекрасно работает - 42 градуса кажет.
Может, вы просто функцию использовать не умеете?

[alex724842]

да у меня инвидиа,может и не правильно использую!
а еще есть что нибудь что бы данных побольше было,нодо все самые главные харрактеристики видеокарты,память,частота и все такое!
помогите!!!

[DomiNick]

А для ATI Radeon ..?