Gracias!! Aqui dejo el codigo fuente por si alguien mas lo necesita:
Código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
inherited;
if Message.CmdType = $F200 then form2.ShowModal
end;
procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');
s := '&Acerca De...';
AppendMenu(GetSystemMenu(Handle, False), MF_STRING, $F200, PChar(s));
end;
end.