Connaître la résolution de l'écran et celle de l'espace de travail 1.0

Contenu du snippet

Tout est dit dans le titre

Source / Exemple :


//*************************************************************
//  Fonction trouvant la résolution de l'écran en X
//*************************************************************
function GetScreenResolutionX     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CXSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution de l'écran en Y
//*************************************************************
function GetScreenResolutionY     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CYSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution en X de l'espace de travaille sans la barre des tache
//*************************************************************
function GetScreenResolutionWorkAreaX     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CXFULLSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution en Y de l'espace de travaille sans la barre des tache
//*************************************************************
function GetScreenResolutionWorkAreaY     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CYFULLSCREEN);

  result := res;

end;

Conclusion :


Toutes Fonctions que je propose a été créé et donc testé par moi-même alors si problème il y a ne pas hésiter à m'écrire. :)

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.