delphi编写仿windows记事本遇到的问题

来源:互联网 发布:在线视频cms 编辑:程序博客网 时间:2024/05/17 08:11

在用delphi编写仿windows记事本的时候在写最后一个菜单的菜单项的时候遇到的问题

 通常情况下,我们需要编写程序都需要 帮助文档 和 关于软件 这两项,在delphi中是怎么实现的呢?来看看下面的代码吧


 uses  ShellAPIprocedure TMainForm.mmimenuHelpThemClick(Sender: TObject);begin   ShellExecute(Self.Handle, 'open', '../Doc/notepad.chm',nil,nil, SW_SHOW);end;procedure TMainForm.mmimenuAboutClick(Sender: TObject);begin   ShellAbout(self.Handle,     pChar('记事本'),     pChar('作者:***    E-Mail:@'), HICON(nil));end;

第一个实现了帮助文档,第二个实现了关于。挺不错的。记录下来


原创粉丝点击