Changement de résolution

J'ai un petit prog dans lequel je change la résolution de l'écran à l'ouverture de celui-ci. La Fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function TForm1.ChangeResolution(Width,Height:Integer):Boolean; var dev:TDeviceMode; begin Dev.dmPelsWidth:=Width; Dev.dmPelsHeight:=Height; Dev.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT; Result:=ChangeDisplaySettings(Dev,0)=DISP_CHANGE_SUCCESSFUL; end;

---

demandée dans l'événement onShow de ma forme

Code:

---

ChangeResolution(1024,768);

---

fonctionne très bien mais au bout de quelques secondes (variable) la résolution par défaut revient sans que je n'y fasse rien....

J'utilise cette fonction dans un autre programme qui ne fait que cela, changer de résolution (suivant toutes les possibilités de mon écran) et dans celui-ci, les résultats sont permanents ???; y a t'il un moyen de savoir la raison pour laquelle je n'ai pas le même résultat partout

Merci, Duan

bonjour indy
:) j'ai eu le même problème et c'est la faq de delphi qui m'a aidé.

il y a 2 belles fonctions à ce niveau
voir
1) http://www.developpez.com/delphi/faq...ngerresolution
2) http://www.developpez.com/delphi/faq...utionpardefaut

Voici pour ma part le bout de code qui fait la chose.
Il récupère la totalité de la structure PDeviceMod avant d'appeller ChangeDisplaySettings. Le changement de résolution reste constant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var iModeNum:word; lp:PDeviceMode; // dm:deviceMode; begin lp:=allocmem(sizeof(DeviceMode)); iModeNum:=0; repeat inc(iModenUm) until not (EnumDisplaySettings(nil,iModeNum,lp^)); lp.dmFields:=$80000+$100000; lp.dmPelsWidth:=640; lp.dmPelsHeight:=480; ChangeDisplaySettings(lp^,0); freemem(lp);   end;[quote][/quote]

---