Делаешь скрин экрана и рисуешь на нем.
Все просто (Так я получал скрин два года назад):
Код:
var
SC: TCanvas;
R: TRect;
begin
SC:=TCanvas.Create;
R.Left:=0;
R.Top:=0;
R.Bottom:=Screen.Height;
R.Right:=Screen.Width;
SC.Handle:=GetDC(0);
Image1.Canvas.CopyRect(R,SC,R);
SC.Free;
end;
Ну а потом все додумаешься...