Bonjour,
J'ai vu dans la FAQ DELPHI cette fonction permettrait de changer la resolution de mon écran système. Je l'ai l'intégrée dans mon code et l'appel ChangeResolution(1024,768) mais cela ne produit aucun effet à l'excécution. Que dois-je faire pour obtenir le bon résultat.
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Function 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;
Partager