Standard Startmenü durch eigenes ersetzen

[Diamondback2007]

okay ich habe jetzt eine lösung gefunden:

Delphi-Quellcode:

procedure Vordergrund();
begin
  while true do
  begin
    Application.ProcessMessages;
    SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    Sleep(10);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
Var tmp : Pointer;
    tmp2: Cardinal;
begin
  CreateThread(nil,0,@Vordergrund,tmp,0,tmp2);
end;

das braucht kaum prozessor! damit hat sich das jetzt fürs erste erledigt!
danke

gruß