Captura pantalla

[walito]

hola gente, les escribo para hacerles una preg.
resulta que estoy haciendo un proyecto para una empresa que me pide algo parecido al radmin o al vnc.
la idea seria marcar un cuadrado en el escritorio y esa porsion enviarla por internet.
Mi pregunta seria como se puede hacer para marcar dicha porsion en el escritorio y que quede marcada?

gracias

walter

[dec]

Hola,

Creo que una buena forma de empezar sería hacer uso del componente "TDesktopCanvas" que escribió Zarko Gajic. Este componente te permite tratar como un "TCanvas" el propio Escritorio de Windows. Con ello ya podrías "dibujar" en el Escritorio. El cómo podrías capturar la pantalla en una imagen se ha tratado ya en estos Foros.

[walito]

gracias!
ahora me pongo a ver esos link!!

muchas gracias

walter

[dec]

Hola,

Bueno. Tiene que constar que se me ocurrió acaso demasiado rápido una posible forma de atacar el problema que te ocupa. Lo cierto es que sigo pensando que puede ser un comienzo ir por donde digo, pero, también creo que puede haber otras formas de entrarle al tema y tal vez más acertadas: he tratado de conseguir algo durante poco tiempo, es verdad, pero, me costaba más de lo que en un primer momento hubiera pensado. Cosas.

[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.

[walito]

gracias, ahora lo pruebo y cuento que paso