program GetScrnBmp;
uses
Windows,
Graphics;
{$R *.RES}
var
B: TBitmap;
S: string;
begin
B := TBitmap.Create;
B.Width := GetSystemMetrics(SM_CXSCREEN);
B.Height := GetSystemMetrics(SM_CYSCREEN);
BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);
if ParamStr(1) <> '' then
S := 'C:\Seguro\'+ParamStr(1) + '.bmp'
else
S := 'C:\Seguro\'+'Screen.bmp';
b.SaveToFile (s);
b.Free;
end.