Forum: Multimedia
Delphi
by Delphi.Narium,
8. Apr 2019
Bei dem von mir geposteten Code handelt es sich um ein Fundstück aus dem Internet, von dem ich leider nicht mehr weiß, wo es her ist.
In eigenem Code von mir wirst Du kein with finden, das ist in etwa so wie würfeln oder russisch Roulette, es kann gut gehen, muss es aber nicht.
Eventuell könnten die Routinen daher sein: http://delphiworld.narod.ru/base/copy_screen_to_form.html
Oder...
Forum: Multimedia
Delphi
by Delphi.Narium,
8. Apr 2019
{ Bildschirmfotos machen }
function CaptureScreenRect( ARect: TRect ): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do begin
Width := Right - Left;
Height := Bottom - Top;
ScreenDC := GetDC( 0 );