Hi,
das hier ist die Screenshot Funktion:
Delphi-Quellcode:
function FormularScreenShot(Bmp: TBitmap32; h: hWnd): Boolean;
var
Rec: TRect;
iWidth, iHeight: Integer;
begin
with Bmp do try
GetWindowRect(h, Rec);
iWidth := Rec.Right - Rec.Left;
iHeight := Rec.Bottom - Rec.Top;
Width := iWidth;
Height := iHeight;
BitBlt(Canvas.Handle, 0, 0, iWidth, iHeight, GetWindowDC(h), 0, 0, SRCCOPY);
Result := True;
finally
ReleaseDC(h, GetWindowDC(h));
end;
end;
Kann es daran liegen ?
Wenn es an der nicht liegt gibt es dann noch eine andere möglichkeit das ganze zu relisieren ? Denn um das Atomlight vernünftig wirken zu lassen, sollte schon alle 25ms ein scan erfolgen.
mfg Yannic