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.

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;
Merci.