Accueil
Rechercher:
sur developpez.com sur les forums
Forums | Tutoriels | F.A.Q's | Participez | Hébergement | Contacts
Club Emploi Blogs   TV   Dév. Web PHP XML Python Autres 2D-3D-Jeux Sécurité Windows Linux PC Mac
Accueil Conception Java DotNET Visual Basic  C  C++ Delphi MS-Office SQL & SGBD Oracle  4D  Business Intelligence
FORUMS DELPHI F.A.Q DELPHI TUTORIELS DELPHI LIVRES COMPOSANTS SOURCES DEFI TELECHARGEZ DELPHI TV
Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES ARTICLES NONOVISU ACCUEIL NOUVELLES
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 oeuvre intellectuelle protégée par les droits d'auteurs. 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'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.

Responsables bénévoles de la rubrique Delphi : Nono40 et Pedro - Contacter par EMail :
Vos questions techniques : forum d'entraide Delphi - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.