[Résolu][Delphi] Résolution d'écran

Salut
j'aimerai connaitre l'astuce ou les fonctions qui me permettent en lançant mon application(en delphi) de détecter et de changer la résolution de l'écran de l'utilisateur.
merci

bon pour la détéction voici le code:

Code:: MessageDlg('Largeur de l''écran = ' + IntToStr( Screen.Width ) +
' pixels, Hauteur de l''écran = ' + IntToStr( Screen.Height )+' pixels',
mtInformation, [mbOk], 0 );

mais pour la chnger ou la faire revenir, j'ai utilisé deux fonctions que j'ai trouvé sur le net, mais ça ne marche pas!!!!

c'est bon c'est réglé, j'ai utilisé la fonction suivante :

Code:: function ChangeResolEcran(Largeur,Hauteur, ColorResolution:integer):integer;
var
Retour:Longint;
DevMode:TDeviceMode;
begin
DevMode.dmSize:=SizeOf(DevMode);
DevMode.dmPelsWidth:=Largeur;
DevMode.dmPelsHeight:=Hauteur;
DevMode.dmBitsPerPel:=ColorResolution;
DevMode.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT; //indique ce que l'on veut modifier.
Retour := ChangeDisplaySettings(DevMode, CDS_TEST); //CDS_TEST car ce que l'on veut en premier, c'est voir si c'est possible
if Retour=DISP_CHANGE_RESTART then ShowMessage('ne peut modifier la résolution car nécessiterait un redémarrage de Windows');
if Retour=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY);// là, c'est bon
if Retour=DISP_CHANGE_FAILED then ShowMessage('erreur');
if Retour=DISP_CHANGE_BADMODE then ShowMessage('Mode Graphique non supporté');
Result:=Retour;
end;

et dans l'évènement voulu je fait un appel comme suit :

Code:: ChangeResolEcran(1024,768,32);

merci Scorpion Wink