Das Systemmenü der eigenen Anwendung ändern (NonVCL)

[Uncle Cracker]

Ich habe das jetzt nochmal probiert, aber leider habe ich es nicht geschafft

Bei Assarbards Miscprograms ist auch so eine Funktion dazu dabei, bei LocalIP, aber leider habe ich es nicht hinbekommen das in mein Programm zu machen.

Folgende Funktion habe ich für VCL gefunden:

Code:

private
  procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

procedure TForm1.FormCreate(Sender: TObject);
var
   Menu: THandle;
begin
  Menu := GetSystemMenu(Application.Handle, False);
  ModifyMenu(Menu, sc_Close, mf_ByCommand, sc_Close, 'E&xit'#9'Alt+F4');
  AppendMenu(Menu, mf_Separator, 0, #0);
  AppendMenu(Menu, mf_ByCommand, 100, '&wiegehts...');
  AppendMenu(Menu, mf_ByCommand, 101, '&Hallo');
  Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_SYSCOMMAND then
  begin    if Msg.wParam = 100 then
    begin      ShowMessage('Wie gehts?');
      Handled := True;
    end;
    if Msg.wParam = 101 then
    begin
      ShowMessage('Hallo');
      Handled := True;
    end;
  end;
end;

Nur leider kann man das nicht in NonVCL umwandeln, ich zumindestens nicht

Vielleicht kann mir nochmal jemand helfen.


Danke UC