Discussion :

[Duan]

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

Code :

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

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 :

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

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

[nkd]

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

[frantzgac]

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 :

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
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]