ScOrPiOn Mister Forum 2006
Nombre de messages : 3090 Age : 44 Date d'inscription : 11/08/2004
| Sujet: [Résolu][Delphi] Résolution d'écran Mer 1 Fév - 12:30 | |
| 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
Dernière édition par le Mer 1 Fév - 14:38, édité 1 fois | |
|
ScOrPiOn Mister Forum 2006
Nombre de messages : 3090 Age : 44 Date d'inscription : 11/08/2004
| Sujet: Re: [Résolu][Delphi] Résolution d'écran Mer 1 Fév - 12:48 | |
| 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!!!! | |
|
ScOrPiOn Mister Forum 2006
Nombre de messages : 3090 Age : 44 Date d'inscription : 11/08/2004
| Sujet: Re: [Résolu][Delphi] Résolution d'écran Mer 1 Fév - 14:37 | |
| 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 | |
|
Contenu sponsorisé
| Sujet: Re: [Résolu][Delphi] Résolution d'écran | |
| |
|