请高手指正以下DELPHI代码
本人也刚学习delphi7,有些基础不是很懂。还请高手不要见笑。以下是一段在系统菜单中添加菜单项的代码。
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
i:=getsystemmenu(handle,false);
appendmenu(i,mf_string,100,'你好(&E)');
end;
procedure tform1.sysmenu(var msg:twmmenuselect);
begin
if msg.IDItem=100 then
showmessage('哈哈')
else
inherited;
end;
可是在执行的时候出、现以下的问题:
构建
[错误] Unit1.pas(31): Undeclared identifier: 'sysmenu'
[错误] Unit1.pas(31): ';' expected but ')' found
[错误] Unit1.pas(36): This form of method call only allowed in methods of derived types
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
菜单已添加OK,但消息构建不成功。
请高手指出问题所在,并更正。