sarssor
Messages postés63Date d'inscriptiondimanche 22 juillet 2007StatutMembreDernière intervention28 avril 2011
-
22 mars 2011 à 18:01
djenane1
Messages postés2Date d'inscriptiondimanche 20 mars 2011StatutMembreDernière intervention12 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;