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"

[Mithrandir]

Ich möchte kurz was einwerfen:

Wenn du weißt, wie das Programm heißt, was du starten willst, dann reicht auch Windows-Taste und "Name des Programms eingeben", da der Focus ja automatisch auf dem Suchfeld liegt.

Das nur als kurzer Einwurf, ich würde da nicht rumfrickeln wollen...

[Gehstock]

darum gehts mir ja nicht sondern ich will alle Programme direkt sehen die Installiert sind und nicht immer den Umweg über den "Alle Programme" Button gehen müssen

[toms]

Werden die Handles auch gefunden? 'Alle Programme' wird ja kaum der Klassenname sein.