Le he puesto el siguiente codigo:
Código Delphi
[-]
Visible := False;
Application.ProcessMessages;
Bmp := TBitmap.Create;
try
Bmp.FreeImage;
Bmp.Width := GetSystemMetrics(SM_CXSCREEN); Bmp.Height := GetSystemMetrics(SM_CYSCREEN); BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, GetDc(0), 0, 0, SRCCOPY);
Bmp.SaveToFile (ChangeFileExt(Application.ExeName,'.bmp'));
finally
Bmp.Free;
end;
Visible := True ;
Pero por desgracia lo hace correctamente solo la primera vez de su ejecucion, las siguientes veces muestra la ventana del programa no se pq, alguna idea?