Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Membres
- Se connecter
- Inscription
- Liste des membres
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Capture - Capture avec une touche

Cette exemple en Delphi permet de capturer l'écran lorsque l'utilisateur appuiera sur la touche F12 puis de l'insérer dans un composant TImage.
Vous pouvez changer la touche (par exemple : F1,F2...) grâce aux instructions de la méthode Key.

procedure TForm1.Button1Click(Sender: TObject);
Var Bool: Boolean;
touche: Byte;
DesktopHWnd: HWnd;
DesktopDC: HDc;
begin
Touche := VK_F12;//Touche F12
Application.Minimize; //Réduit l'application
Application.ProcessMessages; //Traite la file d'attente des messages
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Repeat Application.ProcessMessages;
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Until Bool or Application.Active;
If Bool then Begin
DesktopHWnd := GetDesktopWindow;
DesktopDC := GetDC(DesktopHWnd);
Image1.Picture.Bitmap.Width:=Screen.Width; //Largeur de l'écran
Image1.Picture.Bitmap.Height:=Screen.Height; //Hauteur de l'écran
BitBlt(Image1.Picture.Bitmap.Canvas.Handle,0,0,
Screen.Width,Screen.Height,GetDC(GetDesktopWindow),0,0,SrcCopy);
ReleaseDC(DesktopHWnd, DesktopDC);
Application.Restore; //Restaure à sa taille l'application
end;
end;


Capture d'écran    [ 22-10-2001 ]
 Exemple de capture d'ecran avec une touche.
Télécharger :  [6 Ko] [Télécharger capturet.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Tous droits réservés - Contacts
Haut de la page