Screenshot erstellen (inkl. Ballon-Tipps)

[Matze]

:hi:

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

Delphi-Quellcode:

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. :thumb:

[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]

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

[Union]

Zitat:

Zitat von Matze

:hi: 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 :mrgreen: :zwinker:

Gruß
Stephan

[sakura]

Zitat:

Zitat von Union

Vielleicht bist Du einfach zu langsam ;)

Was soll der Kommentar :gruebel: Es ist nun mal so, dass die nicht so einfach "eingefangen" werden können.

...:cat:...

[scp]

Das kommt auch auf den Balloontip drauf an. Wenn ich zum Beispiel in der Komponentenleiste von Delphi einen Tooltip habe, verschwindet dieser, sobald ich eine Taste drücke oder zu lange warte.
Ist er von einem Tray Icon, bleibt er solange stehen, bis man mit der Maus weg geht oder irgend ein Fenster aufgeht.
Ich bekomme übrigens auch keinen der Tooltips in einen Screenshoot, ausser mit "Druck".

[Union]

Zitat:

Zitat von sakura

Zitat:

Zitat von Union

Vielleicht bist Du einfach zu langsam ;)

Was soll der Kommentar :gruebel: Es ist nun mal so, dass die nicht so einfach "eingefangen" werden können.

...:cat:...

Sorry, aber bei mir funktionierts. Und ein bisschen Spass muss auch erlaubt sein.

[Matze]

Zu langsam?

Sicher nicht, nachdem ich den Button angeklickt habe, ist der Ballon-Tipp immer noch da, also zu langsam bin ich sicher nicht!

Edit: Ich meine auch die Ballon-Tipps der taskleiste unten rechts neben der Uhr. ;)

[Union]

Zitat:

Zitat von Matze

Zu langsam?
Edit: Ich meine auch die Ballon-Tipps der taskleiste unten rechts neben der Uhr. ;)

Dann gib mir mal bitte nen kurzen Tip, wie ich so eine Sprechblase dort erscheinen lassen kann, ohne z.B. ein Programm neu zu installieren oder mir einen Virus zu installieren, damit ich das nachvollziehen kann.

[Matze]

Steck einfach ein USB-Gerät ein, das noch nicht an dem USB-Port installiert wurde. ;)

[Akut-Programming]

Hi Matze,

also auf meiner Webseite hab ich n Prog ("Screenshotmaker"), mit dem du es ja mal versuchen könntest. Nur leider ist der Server momentan down. :cry: d.H. du müsstet dich noch bis morgen, evtl. bis Sonntag gedulden. :roll:

[EDIT]Eigentlich müsstes auch noch zuhause auf meinem Rechner rumschwirren.. kanns ja dann ma anhängen, wenn ich @home bin[/EDIT]

MfG

[Matze]

Das ist nett von dir.
Ich hoffe, die Sources sind dabei, denn mich interessiert nur, wie ich sowas umsetze, Anwendung habe ich momentan keine dafür. :roll: ;)

[Steve]

DIE Lösung :mrgreen:

{Edit: Nummer 3!! "procedure CaptureScreen(AFileName: string);"}

Gruß
Stephan

[Matze]

Perfekt, funktioniert, vielen Dank! :thumb:

Jetzt muss ich mir mal ansehen, wie das genau funktioniert. ;)