Focus Problem ( GetForegroundWindow ) [Résolu]

Messages postés
63
Date d'inscription
dimanche 22 juillet 2007
Statut
Membre
Dernière intervention
28 avril 2011
- - Dernière réponse : djenane1
Messages postés
2
Date d'inscription
dimanche 20 mars 2011
Statut
Membre
Dernière intervention
12 mai 2011
- 28 mars 2011 à 12:22
Salut

mon code est pour enregistrer en continu la fenêtre active sur le bureau (Desktop)

En cliquant sur ​​Button1 pour obtenir le focus dernière fenêtre active.

Le code ne devrait pas écrire le programme lui-même, bien sûr
Comment devrait être le code pour atteindre l'objectif
Voici le code:


Var
hwnd: THandle;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
hWnd := GetForegroundWindow;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
          lpRect : TRect;
begin
  if not (GetForegroundWindow = self.Handle) and (GetForegroundWindow <> self.Handle)
    then begin
            hWnd := GetForegroundWindow; end;

end; 
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
1270
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
3
3
Merci
Bonsoir

if not ( GetForegroundWindow =  self.Handle ) 
   and ( GetForegroundWindow <> self.Handle )

Il n'y a rien qui te parait bizarre dans ce que tu as codé ?

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 116 internautes nous ont dit merci ce mois-ci

Commenter la réponse de WhiteHippo
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
7
0
Merci
Le code ne devrait pas écrire le programme lui-même, bien sûr



Et oui je confirme, il y a une aberration booléenne dans le code ...

Cordialement, Bacterius !
Commenter la réponse de Bacterius
Messages postés
2
Date d'inscription
dimanche 20 mars 2011
Statut
Membre
Dernière intervention
12 mai 2011
0
Merci
slt ca va bien
Commenter la réponse de djenane1

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.