Screenshot mit "echtem" .net 1.1 ...

[Hajoseb]

Sorry, ich habe mich falsch ausgedrückt

Ich meinte, laufen diese Lösungen mit
Turbo Delphi für .net !!!

Das ist es, worauf es mir ankommt. Ob meine bisherige Lösung auch mit
Turbo Delphi.net zu nutzen ist.

Delphi-Quellcode:

unit uScreencopy;

interface

uses
  System.Drawing,
  System.Windows.Forms,
  System.Drawing.Imaging;

function CopyScreen : Image;

implementation

uses windows;

var g2      : Graphics;
    img     : Image;

function CopyScreen : Image;
var dc1     : HDC;
    dc2     : IntPtr;

begin
  // Kopieren der Fenster-Bitmap in die eigene Bitmap:
  dc1 := GetDC(0);
  dc2 := g2.GetHdc();

  BitBlt(HDC(dc2), 0, 0, Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height, dc1, 0, 0, 13369376);
  ReleaseDC(0,dc1);
  g2.ReleaseHdc(dc2);

  Result := img;
end;

  //  Erzeugen einer neuen Bitmap mit den Maßen und der Farbtiefe des aktuellen Fensters:
begin
  img := system.Drawing.Bitmap.Create(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
  g2  := Graphics.FromImage(img);
end.