Mandar pantalla remota

[JOSEPE]

Chequea esta direccion para conseguir ser visible desde una IP dinamica.

JOSEPE

[roman]

Empezado por JOSEPE

Chequea esta direccion

¿Cuál dirección?

// Saludos

[Epachsoft]

Buenas, realmente no es complicado el capturar la pantalla actual de un computador usando Delphi. Esta es la rutina que da estos resultados...

~~~~~~~~~~
procedure ScreenShot(DestBitmap : TBitmap) ;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle,
0,
0,
DestBitmap.Width,
DestBitmap.Height,
DC,
0,
0,
SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;


Provecho.

y GO DELPHI!!

[JOSEPE]

Disculpen, esta es la direccion http://www.clubdelphi.com/foros/showthread.php?t=21303

Gracias, Roman

JOSEPE

[JXJ]

Vale analizando información. . Gracias. ;