Video Adaptor Name 1

[m1tch]

Does anyone know the code to retrieve the name of the computers video adaptor?

 

[whosrdaddy]

quick and dirty,

you'll need a button and a listbox on a form :
add windows and graphics to the uses list

procedure TForm1.Button1Click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
 lpdisplaydevice.cb := sizeof(lpdisplaydevice);
 dwflags := 0;
 cc:= 0;
 while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
  begin
    inc(cc);
    listbox1.items.add(lpdisplaydevice.DeviceString);
  end;
end;

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[m1tch]

Cheers, i'll check try it out tonight.