(okwary) 小叹的学习园地

与天斗？不够高～ 与地斗？不够阔 与人斗？ 脸皮不够厚
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 :: 管理 ::

2009年1月15日

获取Windows系统信息的Delphi程序
摘要： 1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下： Procedure Tform1.Button1Click(sender:TObject); Var OSVI:OSVERSIONINFO; begin OSVI.dwOSversion... 阅读全文
posted @ 2009-01-15 12:34 okwary 阅读(297) 评论(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 阅读(365) 评论(0) 推荐(0)

ggg