Schau mal den Code an
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