pb Resolution d'ecran?

Salut les devloppeurs,
mois, je veux changer la resolution d'ecran a 1024x768 d'une n'importe quelle machine acause des contraintes de mon aaplication.

j'avais essayé la fonction suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function ChangeResolution(Width, Height: integer): Longint; var Affich: TDeviceMode; begin Affich.dmSize := SizeOf(TDeviceMode);//Paramètres Affich.dmPelsWidth := Width; Affich.dmPelsHeight := Height; Affich.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; Result := ChangeDisplaySettings(Affich, CDS_UPDATEREGISTRY);//Applique avec l'Api windows end;

---

mais, lorsque la resolution est petite(ex: 800x600) mon application demare avec cette resloution malgre la resolution de l'ecran a ete change pendant l'execution a 1024x768.
et dans le cas ou la resolution est grande (ex: 1280x768) mon application demmare bien

Il y'a une justification a mon pb.
merci.

Je n'ai pas tout compris, mais on dirait que quoi qu'il arrive tu passe en 1024, essaye jouer avec WindowState ... ou sinon avec Width et Height de ta MainForm ...