// Es wird die momentan eingestellte Farbtiefe der Grafikkarte ermittelt.
// Ein Ergebnis von "24" sagt z.B. aus, dass 24 Bit Farbtiefe eingestellt
// ist. Ein Ergebnis von "8" weist auf 256 Farben hin.

// Getestet mit D4 unter WinME

procedure TForm1.Button5Click(Sender: TObject);
var farben:integer;
begin
farben:=GetDeviceCaps(GetDC(GetActiveWindow),BITSPIXEL);
showmessage(inttostr(farben));
end;