说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

为系统菜单添加新菜单-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
为系统菜单添加新菜单-Delphi资料

const

CM_MyMsg = WM_USER + 400;

procedure TForm1.FormCreate(Sender: TObject);

var

SysHMenu : HMENU;

begin

SysHMenu:=GetSystemMenu(Handle

False);

AppendMenu(SysHMenu

MF_STRING

CM_MyMsg

'你好');

end;

procedure TForm1.WMSysCommand(var message:TMessage);

begin

case message.WParam of

CM_MyMsg: Application.MessageBox('你好'

''

MB_OK);

else inherited;

end;

end;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘