Bis auf den startbutton - taskleiste verstecken

[Nicodius]

Hallo Leute

gibt es ein Tool um nur den Startbutton anzuzeigen?

ich hab ne eigene taskbar kann aber von der aus nur durch drücken der windowstaste das startmenü öffnen - ist mir mit einem button aber lieber



grüße Nico

[jfheins]

Du könntest den Parent des Start-Buttons einfach auf eins deiner Leiste setzen, mit Findwindow und Setparent

[Nicodius]

prima danke schau ich mir an

[Nicodius]

Zitat:

Findet leider nichts

gibts da vl schon ein tool welches das kann?

[jfheins]

Ja, mein Testtool

setzen "holt" den startbutton, zurücksetzen "gibt" ihn wieder zurück

[Nicodius]

erstens wenn ich auf den button dann klicke kommt kein startmenü

und zweitens wärst so nett den code zu posten ?

[jfheins]

erstens: Daran arbeite ich noch ...

zweitens: ersteht zwar auch im Memo, aber bitte:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  wnd := FindWindowEx(wnd, 0, 'Button', nil);
  if wnd <> 0 then
  begin
     Edit1.Text := IntToStr(wnd);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Windows.SetParent (strtoint (Edit1.Text), Panel1.Handle);
  SetWindowPos(strtoint (Edit1.Text), 0, 50, 50, 0, 0, SWP_NOSIZE);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  if wnd <> 0 then
  begin
    SetWindowPos(strtoint (Edit1.Text), 0, 0, 0, 0, 0, SWP_NOSIZE);
    Windows.SetParent (strtoint (Edit1.Text), wnd);
  end;
end;

[Nicodius]

aso lol hab das gar nicht beachtet

danke

[fkerber]

Hi!

Startmenü kommt bei mir auch keins, aber steht der Quelltext nicht im Memo daneben?


Ciao Frederic


Roter Kasten, wo warst du?

[Nicodius]

ah passt hat sich erledigt das programm bietet versteckt sogar so eine option - trotzdem danke und interessieren würds mich so auch solltest dus schaffen