Discussion :

[akorx]

Salut les amis,

J'aurais besoin de réaliser un screenshot de tout l'écran pour le mettre dans un TImage... j'y arrive en utilisant getDC(0) sauf que systématiquement, il me prend la fenêtre active en me coupant la barre des taches de windows, or moi je veux la copie de TOUT l'écran !!!

Qui à une méthode qui fonctionne?

Sous Windows 7, la barre des taches de windows est prise en compte par la copie mais c'est pire, je n'ai que le "drapeau" qui sert de bouton "démarrer", les autres icones, l'heure, etc sont vierge ...

[Dr.Who]

Via codyx

• Langage : Delphi 5
  Date ajout : 23/07/2008
  Posté par cirec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{je vous propose ici une alternetive au code de Ni69}
procedure TForm1.Button1Click(Sender: TObject);
begin
  { fait la copie d'écran}
  keybd_event(VK_SNAPSHOT , 0, 0, 0);
  keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);
  {Traite les messages}
   Application.ProcessMessages;
  {Teste le format du presse papier}
   if ClipBoard.HasFormat(cf_Bitmap) then
  begin
  {et si le format existe on l'affiche dans un TImage}
    Image1.Picture.Bitmap.Assign(ClipBoard);
  {et on vide le presse papier pour la capture suivante
   ce qui permet d'être certain d'avoir la bonne capture}
     ClipBoard.Clear;
  end;
end;

[Andnotor]

Je n'aime pas trop l'idée de passer par le presse-papiers ou alors, il faudrait le sauvegarder avant et le restaurer après.

@akorx
Montre-nous ton code. Quel est le DC de destination ? Y a-t-il du multitâche ?

[ShaiLeTroll]

essaye sur GetDC(GetDesktopWindow())

[cincap]

Bonjour à toutes et à tous,

@ akorx, pour ma part, je n'utilise pas le presse papier mais il existe des tas de solution.

Testé sous Seven 64bits, ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
  procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
 
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure PrintScreen(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Bild.Width := Screen.Width;
    Bild.Height := Screen.Height;
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  PrintScreen(Image1.Picture.BitMap);
 
end;
 
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
Handled := false;
end;

@+,

Cincap

[akorx]

Dites donc les gars, quelle rapidité ! un grand merci pour vos réponses, c'est tout à fait ce que j'attendais !!!

La solution de cincap me convient parfaitement et c'est donc celle que je vais retenir, ce qui ne veut pas dire que les autres ne fonctionnent pas hein !

En tout cas encore merci pour la qualité et la rapidité de vos réponses !!!

Kenavo