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
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Capture - Capture avec délai

Cette exemple en Delphi permet de capturer l'écran au bout de 5 secondes puis de l'insérer dans un composant TImage.
Vous pouvez modifier le délai grâce a la fonction "Sleep".

procedure TForm1.Button1Click(Sender: TObject);
var
DesktopHWnd: HWnd;
DesktopDC: HDc;
begin
Application.Minimize; //Réduit l'application
Sleep(5000);//Attend 5 secondes (en ms )

DesktopHWnd := GetDesktopWindow; //Retourne le handle
DesktopDC := GetDC(DesktopHWnd); //Retourne le handle du contexte d'affichage
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 l'application
end;


Capture d'écran    [ 02-10-2001 ]
 Exemple de capture d'écran avec un délai de 5 secondes.
Télécharger :  [6 Ko] [Télécharger capture.zip]

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

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