Sreenshot vom aktuellen Fenster?

[smart]

Hallo Alle!

Wie kann ich einen Sreenshot, immer vom aktuellen Fenster mit Delphi machen? Habe schon einige Codes getestet. Die machen meist vom ganzen Desktop einen Sreenshot. Hat Einer von Euch vielleicht ein Stück Code oder einen Tipp?

Gruß
Heike

[fLaSh11]

Alt+Print

[smart]

Zitat:

Zitat von fLaSh11

Alt+Print

Mit Delphi- Code! (siehe oben) ;-)

Gruß
Heike

[fLaSh11]

wozu wenn Windows das Feature schon mitbringt^^?

[smart]

Zitat:

Zitat von fLaSh11

wozu wenn Windows das Feature schon mitbringt^^?

Ich schreibe ein Programm, dass diese screenshots von Zeit zu Zeit automatisch macht und dann ein Archiv erstellt.

Gruß
Heike

[DMW]

So etwas hatte ich mir mal gebastelt, allerdings mit C++Builder und GDI+. GDI+ verwendete ich allerdings hauptsächlich wegen der Formatunterstützung (.png), der für dich interessante Teil ist hauptsächlich GDI und sollte auch in Delphi praktikabel sein. Und auch für die GDI+ gibt es Delphi-Wrapper, im Zweifelsfall auch ein C-Interface.

Hier der Download:
http://www.audacia-software.de/pf/sst100.zip

[Jelly]

Probiers mal so:

Delphi-Quellcode:

procedure WindowShot (var B : TBitmap) ;
var
  H : THandle ;
  R, RClient : TRect ;

begin
  H := GetActiveWindow ;

  if H <> 0 then begin
      GetWindowRect (H,R) ;
      B.Width := R.Right-R.Left ;
      B.Height := R.Bottom-R.Top ;
      BitBlt(B.Canvas.handle, 0,0 , B.Width, B.Height, GetDc(0), R.left, R.Top, SRCCOPY);
  end ;
end ;

[bitsetter]

Hi,

bei

Delphi-Quellcode:

GetDc(0)

Delphi-Quellcode:

ReleaseDC()

bitte nicht vergessen.

[smart]

Zitat:

Zitat von Jelly

Delphi-Quellcode:

procedure WindowShot (var B : TBitmap) ;
var
  H : THandle ;
  R, RClient : TRect ;

begin
  H := GetActiveWindow ;

  if H <> 0 then begin
      GetWindowRect (H,R) ;
      B.Width := R.Right-R.Left ;
      B.Height := R.Bottom-R.Top ;
      BitBlt(B.Canvas.handle, 0,0 , B.Width, B.Height, GetDc(0), R.left, R.Top, SRCCOPY);
  end ;
end ;

Vielen Dank!
Klappt schon, aber nur in der eigenen Anwendung. Sobald ich ein fremdes Fenster öffne geht es nicht mehr.

Gruß
Heike

[Blackheart]

Alt+Print

Delphi-Quellcode:

keybd_event(VK_MENU , 0, 0, 0);
  keybd_event(VK_MENU , 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SNAPSHOT , 0, 0, 0);
  keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);