Schließen Menü Eintrag Problem

[gauggi]

Hallo!

Ich habe ein Problem:
Ich möchte dass bei meinem Programm im Schließen Menü außer den wichtigen Befehlen wie Schließen,

Minimieren ect. ein eigener Text steht. (so wie bei Inno Setup) Nun habe ich mir den Source von Inno

Setup angesehen, aber mit diesem Source funktioniert es leider nicht. Wenn das Programm startet,

dann hängt sich das Programm auf.

Was könnte ich tun?

mfg gauggi

Danke für jede Hilfe!


Hier noch der Source:

Delphi-Quellcode:

unit about;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMSysCommand (var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
 var
SystemMenu: HMenu;
 begin
 SystemMenu := GetSystemMenu(Handle, False);
  AppendMenu (SystemMenu, MF_SEPARATOR, 0, nil);
  AppendMenu (SystemMenu, MF_STRING, 9999, PChar('Über Test'));
end;

procedure TForm1.WMSysCommand (var Message: TWMSysCommand);
begin
  if (Message.CmdType = 9999)  then
    MessageDlg('Testbox', mtCustom, [mbYes], 0)

  else
    inherited;
end;

end.