Connaitre la résolution de l'écran

procedure TForm1.Button1Click(Sender: TObject);
var x,y: Integer;

begin
x:=Screen.Width;
y:=Screen.Height;
Label1.Caption:='x-Auflösung: '+IntToStr(x);
Label2.Caption:='y-Auflösung: '+IntToStr(y);
end;

Truc|Changer la résolution de l'écran
{
Les valeurs de retour pour NewRes sont:
DISP_CHANGE_SUCCESSFUL résolution changée
DISP_CHANGE_RESTART l'ordinateur doit être redémarré
DISP_CHANGE_BADFLAGS Flags incorrecte
DISP_CHANGE_FAILED erreur du driver graphique
DISP_CHANGE_BADMODE résolution non supportée
DISP_CHANGE_NOTUPDATED Windows NT: La configuration ne peut être écrite dans le registre
}

function NewRes(XRes,YRes:DWord):integer;
var
DevMode:TDeviceMode;

begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=XRes;
DevMode.dmPelsHeight:=YRes;
Result:=ChangeDisplaySettings(DevMode, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if NewRes(1024,768)=DISP_CHANGE_SUCCESSFUL then
begin
ShowMessage('Resolution changed.');
end;
end;