Wie Start-Icon ins Programm holen?

[chaosben]

Warum das Startmenu öffnen?

Delphi-Quellcode:

var
  SB : HWND;
  CR : TRect;
begin
  SB:=FindWindow('Shell_TrayWnd',nil);
  SB:=FindWindowEx(sb,0,'BUTTON',nil);

  Windows.GetClientRect(SB,CR);

  BitBlt(PaintBox1.Canvas.Handle,0,0,cr.Right-cr.Left,cr.Bottom-cr.Top,GetDC(Sb),0,0,SRCCOPY);
end;