Discussion :

[amartik]

Bonjour à tous , je cherche un peu d'aide pour une procédure qui permet de changer la résolution de l'écran avec une petite acti delphi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure changer_resolution(x,y,z:integer);
var
  resolution : TDeviceMode;
  Erreur : integer;
begin
  with resolution do
  begin
    dmSize := sizeof (resolution);
    dmPelsWidth :=  x; //largeur
    dmPelsHeight := y; //hauteur
    dmBitsPerPel := z; //couleurs
    dmFields := DM_PELSWIDTH+DM_PELSHEIGHT+DM_BITSPERPEL;// les éléments à changer
  end;
 
  Erreur := ChangeDisplaySettings(resolution, CDS_TEST);
 
  case Erreur of
    DISP_CHANGE_RESTART :
    begin
 
      ShowMessage('Impossible de changer la resolution');
      halt;
    end;
 
    DISP_CHANGE_SUCCESSFUL :  ChangeDisplaySettings(resolution, 0); // le changement marche
    DISP_CHANGE_BADMODE, DISP_CHANGE_FAILED :
 
    begin
 
      ShowMessage('Impossible de changer la resolution');
      halt;
    end;
  end;
end;

J'ai aussi dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

J'aimerai savoir si dans cette procedure de son des fonctions prédéfinies qui vont chercher les informations du système windows.

Merci bonne journée
Merci à tous.

[Paul TOTH]

je ne comprend pas bien ta question

mais ce code fait appel à la fonction Windows de changement de résolution écran. une première fois en mode "test", et si le test est positif, le changement de résolution est opéré, sinon un message d'erreur est affiché.

[amartik]

je ne comprend pas bien ta question

mais ce code fait appel à la fonction Windows de changement de résolution écran. une première fois en mode "test", et si le test est positif, le changement de résolution est opéré, sinon un message d'erreur est affiché.

c'est bon c'était pour savoir si c'était bien ça . Merci