Screenshot erstellen (inkl. Ballon-Tipps)

[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