[D6] Récupérer la fréquence de l'écran

Version imprimable

17/01/2006, 08h31
Lung

[D6] Récupérer la fréquence de l'écran
Dans un projet, je dois modifier la résolution de l'écran (taille, fréquence, nb de couleurs) : Pas de problème avec ChangeDisplaySettings.

Par contre, pour pouvoir remettre le mode graphique de départ, il faudrait déjà le récupérer. Et c'est là que je coince.
Je récupère l'ancienne taille d'acran avec GetSystemMetrics :
Code:

1 2 _ModeGraphiqueOld.nLargeur := GetSystemMetrics(SM_CXSCREEN); _ModeGraphiqueOld.nHauteur := GetSystemMetrics(SM_CYSCREEN);
Je récupère le nombre de couleur avec GetDeviceCaps :

Code:

AncienneResolutionCouleur:=GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL)*GetDeviceCaps(Form1.Canvas.Handle, PLANES);

Mais, pour la fréquence, je n'ai pas trouvé comment faire.
Quelqu'un aurait-il une idée ? :hola:
Merci.
17/01/2006, 09h31
EssaiEncore
je c pas si cela peut t'aider
- http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=220
17/01/2006, 09h43
Lung
Citation:
Envoyé par EssaiEncore

je c pas si cela peut t'aider

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&id=220
Merci, mais je connaissais déjà. :wink:
C'est grâce à cet exemple que j'ai su comment récupérer le nombre de couleurs.
Mais, il ne parle pas de la fréquence. :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function ChangeFrequence(Frequence:integer):integer;
var
  Retour:Longint;
  DevMode:TDeviceMode;
begin
  DevMode.dmSize:=SizeOf(DevMode);
  DevMode.dmDisplayFrequency:=Frequence;
  DevMode.dmFields:=DM_DISPLAYFREQUENCY; //indique ce que l'on veut modifier.
  Retour := ChangeDisplaySettings(DevMode, CDS_TEST); //CDS_TEST car ce que l'on veut en premier, c'est voir si c'est possible
  if Retour=DISP_CHANGE_RESTART then ShowMessage('ne peut modifier la résolution car nécessiterait un redémarrage de Windows');
  if Retour=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY);// là, c'est bon, on le fait pour de bon.
  if Retour=DISP_CHANGE_FAILED	then ShowMessage('erreur');
  if Retour=DISP_CHANGE_BADMODE then ShowMessage('Mode Graphique non supporté');
  Result:=Retour;
end;

C bien la frequence ca ?? Peut etre c tu deja le faire !!! :wink:

17/01/2006, 10h17
bjl

Salut Lung,

tu as essayer avec l'API EnumDisplaySettings ?

http://msdn.microsoft.com/library/de...vcons_84oj.asp

il y a aussi DEVMODE à lire (EnumDisplaySettings peut retourner 0 ou 1 si l'écran est en mode défaut)

http://msdn.microsoft.com/library/de...tspol_8nle.asp
17/01/2006, 10h50
Lung

Citation:

Envoyé par bjl

tu as essayer avec l'API EnumDisplaySettings ?

http://msdn.microsoft.com/library/de...vcons_84oj.asp

Citation:

Envoyé par MSDN

iModeNum
[in] Specifies the type of information to retrieve. This value can be a graphics mode index or one of the following values. Value Meaning
ENUM_CURRENT_SETTINGS Retrieve the current settings for the display device.
ENUM_REGISTRY_SETTINGS Retrieve the settings for the display device that are currently stored in the registry.

Ces 2 paramètres n'existe pas.
Comment les utiliser ?
Ils n'existent pas dans l'aide Delphi.
17/01/2006, 11h31
bjl

il semblerait que la valeur soit -1 pour ENUM_CURRENT_SETTINGS

http://66.102.9.104/search?q=cache:M...ETTINGS+&hl=fr

Code:

1
2
3
4
5
6
7
8
9
 
Var
Frequency : Integer;
DC : THandle;
Begin
DC := GetDC(Handle);
Frequency := GetDeviceCaps(DC, VREFRESH);
ShowMessage(Format('%d Hrz', [Frequency ]));
end;

Est ce ce que tu veux ?

17/01/2006, 13h28
Lung

Citation:

Envoyé par bjl

il semblerait que la valeur soit -1 pour ENUM_CURRENT_SETTINGS

http://66.102.9.104/search?q=cache:M...ETTINGS+&hl=fr

L'ennui, c'est que le paramètre est un cardinal : donc pas de nombre négatif possible.

Citation:
Envoyé par portu
Code:

1 2 3 4 5 6 7 8 9 Var Frequency : Integer; DC : THandle; Begin DC := GetDC(Handle); Frequency := GetDeviceCaps(DC, VREFRESH); ShowMessage(Format('%d Hrz', [Frequency ])); end;
Est ce que tu veux ?
Ca m'en a tout l'air ...
Et en plus, ca marche. :wink:

Je teste ...

26/09/2008, 14h57
frantzgac

Citation:

Envoyé par Lung

L'ennui, c'est que le paramètre est un cardinal : donc pas de nombre négatif possible.

Bien que ce message soit ancien j'indique comment contourner le problème consistant à donner la valeur -1 à un cardinal. Il suffit de passer high(cardinal) et le tour est joué. Cardinal est rempli de 1, ce qui est bien sa valeur max mais en binaire signé cela donne -1.