Fórum como captuar a imagm do desktop e por no form #146820

var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height );
DC := GetWindowDC( GetDeskTopWindow );
Canv := TCanvas.Create;
Canv.Handle := DC;
Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;

--
Bruno Roberto.

Uma coisa que pode ser muito útil em suporte a distância, ou até mesmo pra outros objetivos, é a realização de um ´print-scrren´ coisa que muitas vezes um usuário não dá conta de realizar e fica complicado, de certa maneira, explicar por telefone. Por este motivo criamos uma rotininha que simula a tecla PrintScreen. A baixo a rotina de como realizar tal processo:

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_PRINT, 0, 0, 0);
keybd_event(VK_PRINT, 0, KEYEVENT_KEYUP, 0);
end;

Obs: Tentei a dica sitada logo acima e não deu certo!!! Procurei ajuda no Help do delphi e encontrei essa logo abaixo e funcionaou (estou usando PENTIUM III 128 Ram, Win98 e Delphi 4)

Simular Print Screen 2
keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela