Startmenü "fernsteuern"

[Gehstock]

und zwar nervt mich bei Windows 7 das Startmenü. Deswegen soll bei druck auf den Start Button automatisch der Button "Alle Programme" im Startmenü gedrückt werden damit ich gleich Zugriff auf meine Programme habe.

versucht hab ich folgendes

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('DV2ControlHost','Startmenü');   //131274
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'Desktop OpenBox Host', nil);   //65780
    wndChild := FindWindowEx(wndChild, 0, 'Search Box', nil);   //65782
    wndChild := FindWindowEx(wndChild, 0, 'SearchEditBoxWrapperClass', nil);   //65784
    wndChild := FindWindowEx(wndChild, 0, 'DirectUIHWND', nil);    //65786
    if wndChild > 0 then
    begin
    wndChild := FindWindowEx(wndMain, 0, 'Desktop More Programs Pane', nil);   //65768
    wndChild := FindWindowEx(wndChild, 0, 'Alle Programme', nil);   //65770
    PostMessage(wndChild,WM_LBUTTONDOWN,0,0);
    PostMessage(wndChild,WM_LBUTTONUP,0,0);
    end;
  end;
end;

ich denke mal das Problem liegt im 2 Teil des Codes beim Button "Alle Programme"