Savoir si une application est en plein écran

Réponse acceptée !
Salut,

form6.label3.caption='Activée'

Ce truc est syntaxiquement correcte, mais bon, il pique un peu les yeux quand même, pour des raisons de perfs... (C'est encore le C qui déteind sur mon Delphi ça...) La comparaison de chaînes est plus lourde que la comparaison d'entiers ou de Booléens. Poser un Boolean en private dans ta form peut améliorer les perfs. M'enfin c'est un détail contestable...

Attention à l'indentation, mais ça, c'est peut être le copier coller.

if Position.X = mouseX then
begin
  if Position.Y = mouseY then
  begin
    if form6.label3.caption='Activée'then
    begin
      Handle:=FindWindow(nil, 'Media Player Classic');
      GetWindowRect(Handle, WinRect);
      if not winrect.top = 0 then
      begin
        if not winrect.left = 0 then
        begin
          showmessage('veille on');
        end
        else
          showmessage('veille off'); 
      end;
    end;
  end;
end;

Avec l'indentation, on voit que le else se rapporte au winrect.left, donc en cas de top = 0, rien ne se passe. Tu aurais probablement voulu écrire :

      if (winrect.top = 0) and (winrect.left = 0) then
        showmessage('veille off')
      else
        showmessage('veille on'); 

Attention de vérifer le handle retourné par FindWindow (Comparer à 0. Si différent de 0, c'est ok).

Au fait, si c'est pour faire un écran de veille perso, pas besoin d'aller si loin. Tu peux conserver le prog de windows, et faire un .exe que tu renommes en heuuu... .scr si je ne m'abuse

Réponse acceptée !
not (winrect.Top=0) and (winrect.left=0)

Avec des tests multiples, il faut faire attention aux parenthèses ou bien connaitre la priorité des opérateurs.
Le not pourrait aussi bien s'appliquer sur le (winrect.Top=0) que sur le  ((winrect.Top=0) and (winrect.left=0))
La première solution a plusieurs avantages :
  Elle marche quel que soit le langage.
  Ceux qui lisent le code et qui ne connaissent pas l'ordre de priorité (Moi par exemple) comprennent quand même.
  Elle ne prend pas de place dans le cerveau.

Donc pour lever l'ambiguité :
not ((winrect.Top=0) and (winrect.left=0))

Plus généralement, tu devrais acquérir les méthodes te permettant de te dépatouiller de ce genre de problème tout seul.
Delphi possède un débogueur permettant par exemple de faire du pas à pas dans les instructions, et d'espionner les valeurs des variables.

Bon, c'est vrai que dans ton cas, c'est un peu compliqué car tu dois avoir le lecteur en plein écran... Mais rien ne t'empèche d'écrire manuellement les valeurs de winrect dans un TMemo par exemple.

Pour finir, que tu ne tiennes pas compte de ma remarque sur la comparaison de chaîne, je l'admet... Certaines personne pourraient la contester.
Par contre, concernant le test du retour de FindWindow, là y a pas photo -> faut tester ! On emploit pas une handle (Ou une variable...) si on est pas sûr qu'il est OK.