Captura pantalla

[marcoszorrilla]

Prueba esto:

Código Delphi [-]
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 := 'C:\Seguro\'+ParamStr(1) + '.bmp'
  else
    S := 'C:\Seguro\'+'Screen.bmp';

  b.SaveToFile (s);

  b.Free;

end.

Un Saludo.