Discussion :

[BuzzLeclaire]

Bonjour, bonsoir à toutes et à tous,

J'aimerais savoir comment vous vous procéderiez pour empêcher une application de s'ouvrir si la taille en pixel de l'écran n'ai pas au minimum
de 1280 * 800 que l'on soit sous XP ou Vista ?

Est-ce que Screen.Width et Screen.Height me suffit où peut-on récuperer cela d'une API si c'est mieux ?
De plus le Application.Terminate peut-il être mis directement dans le DPR ? si oui comment procéder ?

Merci à vous.

[Andnotor]

Salut Buzz,

Si tu n'as qu'un seul écran (ou si l'application est en plein écran sur un seul moniteur) :

Code :

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

1
2
3
4
5
6
initialization
  if (Screen.Width < 1280) or (Screen.Height < 800) then
  begin
    ShowMessage('Trop petit!');
    Halt;
  end;

Si multi-écrans :

Code :

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

1
2
3
4
5
6
initialization
  if (Screen.DesktopWidth < 1280) or (Screen.DesktopHeight < 800) then
  begin
    ShowMessage('Trop petit!');
    Halt;
  end;

[BuzzLeclaire]

Salut Andnotor

Et en plus sa marche..lol

Impéccable.

PS : Je l'aurais un jour je l'aurais....


Juste une précision j'utilise un DataModule qui se créé avant la form principal, dans mon Dpr dans ce datamodule je récupere des infos dtune Table par un ADOquery (que je Close), j'initialise un adoconnection (sans Open)
dois-je faire attention a quelquechose avant le Halt; ?

[Andnotor]

Oui, il faut mettre cette initialization avant toutes créations. Le Halt est assez brutal .

Edit:
Oui mais au moment de l'initialization, le DataModule n'est pas encore créé. Donc pas de soucis !

C'est uniquement dans le cas où tu créerais des objets dans l'initialzation (ex. TStringList global)

[BuzzLeclaire]

Ok,

J'ai mis ta proposition directement dans le datamodule, comme ca pas de souci.

Merci Encore.