Fórum Verificar a resolução do video... #183745

Não sei se funciona, mais para saber a quantidade de cores tente esta função:

[b:05646332bf]var[/b:05646332bf]
hnd: THandle;
bitsPorPixel: integer;
[b:05646332bf]begin[/b:05646332bf]
hnd:= GetDC( Handle );
bitsPorPixel:= GetDeviceCaps( hnd, BITSPIXEL );
// 8 = 256 cores; 16 = high color; 24 = true color
[b:05646332bf]end;[/b:05646332bf]

E o tamanho da tela:
Screen.width // Largura
Screen.height // Altura

Vou te mandar um mel, mas incremente e use isso na abertura do seu form principal/

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := ´Largura:´ +inttostr(screen.width);
label2.caption :=´Altura:´ +inttostr(screen.Height);
end;

end.

MMTOOR2003