Standard Startmenü durch eigenes ersetzen

[Diamondback2007]

Hallo zusammen,

wie ich anhand von einigen programmen gesehen
habe, ist es möglich das normale startmenü durch
ein eigenes zu ersetzen.

kann man dies auch mit delphi realisieren?
ich hab in einer diskussion irgendwas mit
hooks gehört, habe damit aber keine weitgehenden
erfahrungen.
wäre schön wenn mir jemand behilflich sein könnte.

gruß

[Diamondback2007]

*push*
:duck:

[peschai]

Hallo,

Um was geht es dir genauer ?
Änderungen am Startmenü von Windows kannst du doch auf Dateiebene durchführen ?

[SirThornberry]

welche programme kennst du da? ich kenne nur Programme welche die Komplette Shell ersetzen oder eben keine Programme sondern der Fall das durch eine Installationsroutine das Menü richtig ersetzt wird.

[Diamondback2007]

ich kenne zum beispiel Vistart
das ersetzt das XP-Menü durch eines mit der funktionalität
von vista. wie genau das geschieht weiß ich nicht,
aber im prinzip möchte ich genau das erreichen.
beim klick auf den startknopf soll halt irgendetwas beliebiges
angezeigt werden, nur nicht das normale menü ;)

gruß

[wicht]

Naja, ich würde einfach mal vermuten, dass soetwas mit einem Hook machbar ist. Oder die WndProc irgendwie umbiegen. Aber das habe ich noch nie in der Form gemacht, und darum weiß ich auch nicht mehr.. Aber was Hooks angeht findet man schon einiges an Beispielen (falls es damit geht..)

HTH

[mimi]

Ich könnte mir das so vorstellen:
Du versteckst den Button das geht ja mit Delphi.

Legst dort dein eigens Programm hin. was du entstprechend einstellst. und dein Programm kann auch auch dann immer oben sein. Das Fenster ist so groß wie der Button halt für das Startmenu.

[Diamondback2007]

hm...das wäre sogar eine idee :)
also das mit der form drüber! :)

muss ich mal experimentieren...
wie kann man denn den button vrstecken?
hat grade jemand einen link zur hand?

gruß

[Diamondback2007]

okay hab was gefunden http://www.delphi-library.de/topic_D...a00300f2f99d49
allerdings kann sich die taskbar bei fsStayOnTop noch über das programm lagern.

wie kann ich das verhindern?

gruß

[Diamondback2007]

ich hätte un eine möglichkeit gefunden das überlagern der taskbar
zu verhindern, allerdings geht das zu lasten des prozessors...

sendet windows irgendeine message wenn sich die taskbar in den vordergrund setzt?
oder gibt es sowas wie OnOverPaint, also wenn sich ein adneres object
über die eigene form zeichnet?

gruß

[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ß

[Larsi]

gibts hier in der dp nicht sogar n programm was das startmenü komplett ändert??? Frag doch die mal wie sie das gemacht haben :)

[Diamondback2007]

Zitat:

Zitat von Larsi

gibts hier in der dp nicht sogar n programm was das startmenü komplett ändert??? Frag doch die mal wie sie das gemacht haben :)

echt?
kenn ich nicht. ein link wäre nett :)

gruß

[Larsi]

das hast du doch selber programmiert :)
http://www.delphipraxis.net/internal...light=startmen

[BullsEye]

Zitat:

Zitat von Diamondback2007

ich kenne zum beispiel Vistart
das ersetzt das XP-Menü durch eines mit der funktionalität
von vista. wie genau das geschieht weiß ich nicht,
aber im prinzip möchte ich genau das erreichen.
beim klick auf den startknopf soll halt irgendetwas beliebiges
angezeigt werden, nur nicht das normale menü ;)

gruß

Das sieht so aus:

GUCKST DU HIER!

Von Rechtschreibung haben die anscheinend noch nie was gehört?!

[Crazy Ivan]

ja irgendwie ist die deutsche sprache nicht wirklich vorhanden und bei mir kommen dauernd irgendwelche fehler und dann hab ich ein schwarzes startmenü ...

zufriedener bin ich mit dem vista-transformationpack.

[Diamondback2007]

Zitat:

Zitat von Larsi

das hast du doch selber programmiert :)
http://www.delphipraxis.net/internal...light=startmen

ja dann weiß ich ja wies geht ;) nein unser projekt macht genau DAS
leider nicht ;) :(

Zitat:

Zitat von BullsEye

Zitat:

Zitat von Diamondback2007

ich kenne zum beispiel Vistart
das ersetzt das XP-Menü durch eines mit der funktionalität
von vista. wie genau das geschieht weiß ich nicht,
aber im prinzip möchte ich genau das erreichen.
beim klick auf den startknopf soll halt irgendetwas beliebiges
angezeigt werden, nur nicht das normale menü ;)

gruß

Das sieht so aus:

GUCKST DU HIER!

Von Rechtschreibung haben die anscheinend noch nie was gehört?!

ähm warum zeigst du mir das bild? :) oder war das nicht für mich? :P
ich habe zu hause selber vista ;)

[OT] die sprache da im menü sieht aus wie holländisch :roll: :mrgreen: [OT]

Zitat:

Zitat von Crazy Ivan

ja irgendwie ist die deutsche sprache nicht wirklich vorhanden und bei mir kommen dauernd irgendwelche fehler und dann hab ich ein schwarzes startmenü ...

zufriedener bin ich mit dem vista-transformationpack.

ist ja wunderbar :) wenn meins fertig ist müsst ihr euch ja nur so drauf stürzen :)

gruß

[wicht]

Tag,

habe vorhin mal ein bisschen rumgetestet. Eigentlich ist es nicht besonders schwierig (naja, den Hook habe ich nicht selber geschrieben :wink: ) sich da in die WndProc zu hängen. Was ich jetzt hinbekommen habe ist, dass bei einem Klick auf den Startmenü-Button nicht das Startmenü erscheint, sondern einfach ein Ton abgespielt wird. Das kann man jetzt natürlich erweitern, z.B. dass ein eigenes Menü angezeigt wird. Finde ich jedenfalls schöner als mit diesem Stay-On-Top Thread.
Wenn du Interesse hast könnte ich hier Code posten, jetzt bereite ich den aber nicht mehr dafür auf.

Man ließt sich vielleicht, gute Nacht.

[Diamondback2007]

ja das wäre nett :)

gruß

[BullsEye]

Zitat:

Zitat von wicht

Tag,

habe vorhin mal ein bisschen rumgetestet. Eigentlich ist es nicht besonders schwierig (naja, den Hook habe ich nicht selber geschrieben :wink: ) sich da in die WndProc zu hängen. Was ich jetzt hinbekommen habe ist, dass bei einem Klick auf den Startmenü-Button nicht das Startmenü erscheint, sondern einfach ein Ton abgespielt wird. Das kann man jetzt natürlich erweitern, z.B. dass ein eigenes Menü angezeigt wird. Finde ich jedenfalls schöner als mit diesem Stay-On-Top Thread.
Wenn du Interesse hast könnte ich hier Code posten, jetzt bereite ich den aber nicht mehr dafür auf.

Man ließt sich vielleicht, gute Nacht.

Daran hätte ich auch Interesse!

@Diamond, das Bild hab ich gezeigt, damit die anderen sich den Sch*** erst gar nicht runterladen weil das nicht wirklich funzt oder so wie Ivan schon gesagt hat nen Schwarzes Bild.
Also solltet ihr lieber auf Diamonds Version warten *Diamond push* :duck:

[Diamondback2007]

Zitat:

Zitat von BullsEye

Also solltet ihr lieber auf Diamonds Version warten *Diamond push* :duck:

find ch auch :mrgreen:

wenn du möchtest kann ich dir mal die version mit
OnTop per PN schicken zum testen.
wenn du interesse hast meld dich einfach ;)

gruß

[wicht]

Nabend, also, ich poste das mal schnell... in das Programm habe ich das hier reingepackt:

Delphi-Quellcode:

function InjectIntoProcess(lpProcessID: Cardinal; lpDllname: String):Boolean;
var
  hProc: Cardinal;
  oAlloc: Pointer;
  cWPM: Cardinal;
  hRemThread: Cardinal;
begin
  result := false;
  SetLastError(ERROR_SUCCESS);
  hProc := OpenProcess(PROCESS_ALL_ACCESS, false, lpProcessID);
  if hProc <> 0 then
  begin
    oAlloc := VirtualAllocEx(hProc, 0, length(lpDllname), MEM_COMMIT, PAGE_EXECUTE_READWRITE);
    if oAlloc <> nil then
    begin
      if WriteProcessMemory(hProc, oAlloc, PChar(lpDllName), length(lpDllName), cWPM) = true then
      begin
        CreateRemoteThread(hProc, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA'), oAlloc, 0, hRemThread);
        if GetLastError = ERROR_SUCCESS then
        begin
          result := true;
        end;
      end;
    end;
  end;
  CloseHandle(hProc);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  h: hwnd;
  pid: dword;
begin
  h := FindWindow('Shell_TrayWnd', nil); //Taskbar suchen
  GetWindowThreadProcessID(h, @pid); //Prozess zur Taskbar suchen
  InjectIntoProcess(pid, 'hookdll.dll'); //Die DLL reinladen
end;

Die DLL habe ich wie folgt aufgebaut:

Delphi-Quellcode:

library hookdll;

uses
  sysutils,
  Windows,
  messages;

{$R *.res}

var
  h: HWND;
  OldWndProc: pointer;

function NewWndProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  case uMsg of
    WM_LBUTTONDOWN:
      begin // Hier wurde der Linke Mausbutton auf den Startknopf gedrückt.
        MessageBeep(mb_iconinformation);

        Result := DefWindowProc(hWnd, uMsg, wParam, lParam); // Ob das hier richtig ist weiß ich nicht..
        Exit;
      end;
    WM_USER + 22222: // Mit dieser Message kann der Hook deinstalliert werden, das klappt aber nur so "halb".
      begin
        SetWindowLong(h, GWL_WNDPROC, LongInt(@OldWndProc));
        Result := 0;
        Exit;
      end;
  end;
  Result := CallWindowProc(OldWndProc, hWnd, uMsg, wParam, lParam);
end;

begin
  h := FindWindow('Shell_TrayWnd',nil);
  h := FindWindowEx(h,0,'Button',nil); //Startknopf finden
  OldWndProc := Pointer(SetWindowLong(h, GWL_WNDPROC, LongInt(@NewWndProc))); //Die WndProc umlenken
end.

So, das habe ich hier Quick and Dirty hingeklatscht und ist eigentlich nur aus Neugierde entstanden... Sicherlich sind Fehler drin oder falsche Annahmen meinerseits, aber weil ihr ja das Startmenü bauen wollt und ich seit etwas mehr als 30 Stunden keinen Schlaf hatte und das ja nur auf euren Wunsch gepostet habe, lege ich mich trotzdem nun mit gutem Gewissen schlafen.

Gute Nacht, ich hoffe, jemand kann mit diesem Zeug irgendetwas anfangen...