Capturar pantalla de una aplicacion?

[Alejo15x]

Buenas !

Si ando preguntando y preguntando! vale que fastidio...Como sea! Si me quieren ;p para un proyecto que estoy creando, necesito una funciòn, la cual capture la pantalla de un programa en ejecuciòn, en este caso "Tibia.exe" / "TibiaClient", y guardar la foto como .JPG .. Si saben como hacerle por favor, que no seme ocurre como, ya trate buscando y nada

[Casimiro Notevi]

Echa un vistazo a los enlaces del final de la pantalla, abajo del todo, seguramente encuentras ahí lo que buscas.

[Alejo15x]

Bueno, eh soluciònado una parte. Pero el problema es, que al tomar la foto al programa, se ve toda negra. Ya que la ventana esta en DirectX 9.0

Código Delphi [-]
function Tibia.WindowSnap(windowHandle: HWND; bmp: TBitmap): boolean;
var
r: TRect;
user32DLLHandle: THandle;
printWindowAPI: function(sourceHandle: HWND; destinationHandle: HDC; nFlags: UINT): BOOL; stdcall;
begin
result := False;
user32DLLHandle := GetModuleHandle(user32) ;
if user32DLLHandle <> 0 then
begin
@printWindowAPI := GetProcAddress(user32dllhandle,'PrintWindow') ;
if @printWindowAPI <> nil then
begin
GetWindowRect(windowHandle, r) ;
bmp.Width := r.Right - r.Left;
bmp.Height := r.Bottom - r.Top;
bmp.Canvas.Lock;
try
result := printWindowAPI(windowHandle, bmp.Canvas.Handle, 0) ;
finally
bmp.Canvas.Unlock;
end;
end;
end;
end;

Toma la imagen y todo, pero queda negra el contenido. P.S Uso delphi 2010

[cocute]

me parece que no es nada facil hacer lo que pides, lee este post:
http://www.clubdelphi.com/foros/showthread.php?t=54682