Ajouter un item dans le menu system

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
procedure wmSysCommand( var msg: TMessage); message WM_SYSCOMMAND;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;
const
ID_ABOUT = WM_USER + 1;
ID_HELP = WM_USER + 2;
ID_NEWLINE = WM_USER + 4;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
SysMenu: THandle;
begin
SysMenu := GetSystemMenu(Handle, False);
InsertMenu(SysMenu, Word(-1), MF_SEPARATOR, ID_NEWLINE, '');
InsertMenu(SysMenu, Word(-1), MF_BYPOSITION, ID_HELP, 'Help');
InsertMenu(SysMenu, Word(-1), MF_BYPOSITION, ID_ABOUT, 'About');
end;

procedure TForm1.wmSysCommand;
begin
case Msg.wParam of
ID_ABOUT: ShowMessage('Sélection de la boite APropos');
ID_HELP: ShowMessage('Sélection de l''aide');
end;
inherited;
end;

end.