Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
  [Delphi] Get GPU
#1
Use:
Code:
WriteLn(GetGPU);


Code:

Code:
uses
 Windows;

function GetGPU: String;
var
 lpDisplayDevice: TDisplayDevice;
begin
 lpDisplayDevice.cb := SizeOf(lpDisplayDevice);
 EnumDisplayDevices(nil, 0, lpDisplayDevice , 0);
 Result := lpDisplayDevice.DeviceString;
end;
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste
www.D3n1s.Net