(okwary) 小叹的学习园地

与天斗?不够高~ 与地斗?不够阔 与人斗? 脸皮不够厚

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2009年1月15日

摘要: 1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下: Procedure Tform1.Button1Click(sender:TObject); Var OSVI:OSVERSIONINFO; begin OSVI.dwOSversion... 阅读全文
posted @ 2009-01-15 12:34 okwary 阅读(280) 评论(0) 推荐(0) 编辑

摘要: 在TMainMenu组件生成的菜单中添加一个File菜单,在这个菜单下面添加一个Exit选项。在本程序开始运行时就会把TMainMenu组件生成的菜单添加到窗体的系统菜单中,响应代码如下: procedure TForm1.FormCreate(Sender: TObject);var I: Integer;begin AppendMenu (GetSystemMenu (Handle, F... 阅读全文
posted @ 2009-01-15 12:16 okwary 阅读(358) 评论(0) 推荐(0) 编辑

ggg