1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure ScreenShotActiveWindow(Bild: TBitMap); 
var 
  c : TCanvas; 
  r, t : TRect; 
  h : THandle; 
begin 
  c := TCanvas.Create; 
  c.Handle := GetWindowDC(GetDesktopWindow); 
  h := GetForeGroundWindow; 
  if h<>0 then 
    GetWindowRect(h, t); 
  try 
    r := Rect(0,0,t.Right-t.left, t.Bottom-t.Top); 
    Bild.Width := t.Right-t.left; 
    Bild.Height := t.Bottom-t.Top; 
    Bild.Canvas.CopyRect(r, c, t); 
  finally 
    ReleaseDC(0, c.handle); 
    c.Free; 
  end; 
end; 
[quote]

du kannst dann durch die Methode [/quote] Bild.savetofile