Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Screenshot erstellen! (https://www.delphipraxis.net/34903-screenshot-erstellen.html)

Pseudemys Nelsoni 29. Nov 2004 23:23


Screenshot erstellen!
 
hoi,

da ich leider kein plan habe wie ich anfangen soll frag ich einfach mal nach, also es geht darum das ich ein programm schreiben möchte mit dem ich screenshots machen kann, AUCH wenn mein programm nicht das aktive ist... es geht mir dabei nicht darum wie ich ein bild erstelle oder sonstwas, sondern vielmehr darum, wie ich es hinkriege das mein programm auf einen buttonclick reagiert wenn es nicht aktiv ist

Luckie 29. Nov 2004 23:28

Re: Screenshot erstellen!
 
Registrier doch einfach einen Hotkey.

Pseudemys Nelsoni 15. Dez 2004 11:59

Re: Screenshot erstellen!
 
hallo luckie,

ich bekomme das mit der Print/Drucken taste nicht hin, aber genau die brauche ich, mein ziel ist es ein program zu machen das beim druck auf "print" den aktuellen desktop als bild im programm anzeigt. aber wie gesagt da tut sich nix :(

Luckie 15. Dez 2004 12:03

Re: Screenshot erstellen!
 
Zitat:

Zitat von Pseudemys Nelsoni
ich bekomme das mit der Print/Drucken taste nicht hin,

Ihr lernt es nie oder? :evil: Sollen wir jetzt raten, was du falsch machst? Wie sollen wir dir jetzt sagen, wo dein Fehler im Quellcode ist?

http://www.luckie-online.de/Delphi/S...terHotKey.html

Pseudemys Nelsoni 15. Dez 2004 12:34

Re: Screenshot erstellen!
 
danke geht.

ich hatte den gleichen code wie du, nur hab ich als id vk_print benutzt

Äfan 15. Dez 2004 20:42

Re: Screenshot erstellen!
 
Schau mal den Code an :wink: Is zwar net ganz das was du wolltest, aber vielleicht kannst es gebrauchen.

Delphi-Quellcode:
program GetScrnBmp;

uses
  Windows, Graphics;

{$R *.RES}

var
  B: TBitmap;
  S: string;

begin

  B := TBitmap.Create;

  B.Width := GetSystemMetrics(SM_CXSCREEN);   {Screen.Width}
  B.Height := GetSystemMetrics(SM_CYSCREEN);  {Screen.Height}

  BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);


  if ParamStr(1) <> '' then
    S := ParamStr(1) + '.bmp'
  else
    S := 'Screen.bmp';

  b.SaveToFile (s);

  b.Free;

end.
MFG

Pseudemys Nelsoni 15. Dez 2004 22:24

Re: Screenshot erstellen!
 
danke, das funzt 1a :???:


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz