Screenshot erstellen (inkl. Ballon-Tipps)

[Matze]

Weißt einer von euch, wie ich einen Screenshot inkl. der Ballon-Tipps machen kann, die ggf. unten rechts bei Win XP angezeigt werden?

PS: Die Verfahren der CodeLibrary habe ich schon getestet und sie funktionieren nicht (nur ohne Ballon-Tipps).
BTW: IrfanView z.B. schafft es auch nicht.

[Union]

Zitat:

Weißt einer von euch, wie ich einen Screenshot inkl. der Ballon-Tipps machen kann, die ggf. unten rechts bei Win XP angezeigt werden?

Ich verwende dafür SnagIt

[Steve]

Über die "Druck"-Taste müsst's funktionieren (bei mir läufts 'eins a'), programmiertechnisch wäre das dann keybd_event(VK_SNAPSHOT,0,0,0); Gruß
Stephan

[Matze]

@Union: Danke, mit dem Programm geht's leider auch nicht. (Ich wollte es euigentlich auch mit Delphi lösen )

@Steve: Vielen Dank, ich war so blöd und habe es mit ALtGr + Print Screen versucht, da ging's nie richtig. Danke.

[Alexander]

Über die Print-Taste ist das aber auzch nicht so toll, da dann ja alles in der Zwischenablage überschrieben wird! Wenn es nur für den eigenbedarf ist, ok. Aber wenn mir ein Programm meine Zwischenablage zerschießt wäre ihc ziemlich sauer
Da muss es auch etwas anderes geben Ich schau nachher mal nach

[Matze]

Das ist nett von dir Alexander, danke.

Eine Lösung, die den Screenshot in einer datei speichert, ohne Umweg über die Zwischenablage wäre natürlich super.

[Steve]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  c    : TCanvas;
  r    : TRect;
  Bild : TBitmap;
begin
  c        := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r           := Rect(0, 0, Screen.Width, Screen.Height);
    Bild        := TBitmap.Create;
    Bild.Width  := Screen.Width;
    Bild.Height := Screen.Height;
    Bild.Canvas.CopyRect(r, c, r);
    Bild.SaveToFile('C:\screeny.bmp');
    FreeAndNil(Bild);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Abgewandelt von den Schweizern/Torry

Gruß
Stephan

[Matze]

Vielen Dank, doch leider werden auch hier die Ballon-Tipps ignoriert.

[Union]

Zitat von Matze:

Vielen Dank, doch leider werden auch hier die Ballon-Tipps ignoriert.

Vielleicht bist Du einfach zu langsam

[Steve]

Hm seltsam, bei ist der BalloonTip dabei...
Vielleicht bist Du wirklich zu langsam

Gruß
Stephan