Focus Problem ( GetForegroundWindow )Résolu

Question

Salut

mon code est  pour enregistrer en continu la fenêtre active  sur le bureau (Desktop)

En cliquant sur &#8203;&#8203;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;

WhiteHippo · Accepted Answer

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

Bacterius · Answer

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 !

djenane1 · Answer

slt ca va bien

Focus Problem ( GetForegroundWindow )

3 réponses

Votre réponse

Discussions similaires