Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
26 - CHANGER LA RÉSOLUTION DE L'ÉCRAN

PRÉSENTATION : Changer la résolution de l'écran
ZIP : -Pas de zip- APERÇUS :

NOTES : Cette fonction retourne True si la résolution à été changée avec succès. Si le paramètre Memoriser est à True, le changement est inscrit dans le registre et est donc permanent.

CODE :
// Fonction de changement de résolution de l'écran
Function ChangeResolution(Width,Height:Integer;Memoriser:Boolean):Boolean;
Var Dev:TDeviceMode;
    Flg:Cardinal;
Begin
  // Nouvelle résolution choisie
  Dev.dmPelsWidth  := Width;
  Dev.dmPelsHeight := Height;
  Dev.dmFields     := DM_PELSWIDTH Or DM_PELSHEIGHT;
  // Changement de la résolution
  If Memoriser Then Flg:=CDS_UPDATEREGISTRY
               Else Flg:=0;
  Result:=ChangeDisplaySettings(Dev,Flg) = DISP_CHANGE_SUCCESSFUL;
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -