怎样获得系统的一些常规属性(50分)

吉花 · 2000-01-22

请问在delphi中如何获得windows95的控制面板中 的系统属性里的常规标签内的一些内容，如： 系统:Microsoft Windows 98 4.10.1998 注册为:wjx  njupt   06699-OEM-007******* cpu 的指标 通过API如何实现？不用API可以吗？

wjiachun · 2000-01-22

---- 　　控制面板各项目设置调用所对应的语句列表如下： <pre>//打开控制面板 WinExec('RunDLL.exe Shell32.DLL, Control_RunDLL',SW_SHOWNORMAL); //32位ODBC数据源管理器，ODBC数据源、ODBC驱动程序设置 //没有提供参数区分“用户DSN”“系统DSN” “文件DSN”“ODBC驱动程序” “跟踪”“关于”六个属性页 WinExec('RunDLL32.exe Shell32.dll, Control_RunDLL ODBCCP32.CPL',SW_SHOWNORMAL); //BDE Adminstrator //没有提供参数区分“Databases”和“Configuration”两个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  BdeAdmin.CPL',SW_SHOWNORMAL); //Internet 属性，可有ItemNo参数 //“常规”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,0', SW_SHOWNORMAL); //“安全”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  InetCpl.cpl,,1', SW_SHOWNORMAL); //“内容”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  InetCpl.cpl,,2', SW_SHOWNORMAL); //“连接”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  InetCpl.cpl,,3', SW_SHOWNORMAL); //“程序”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,4', SW_SHOWNORMAL); //“高级”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,5', SW_SHOWNORMAL); //电话拨号属性，没有提供参数区分“我的位置”和 “电话语音驱动程序”两个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Telephon.cpl', SW_SHOWNORMAL); //电源管理设置，没有提供参数区分 “电源方案”和“高级”两个属性页 WinExec('RunDLL32.exe Shell32.dll, Control_RunDLL PowerCfg.cpl', SW_SHOWNORMAL); //调制解调器设置，没有提供参数区分 “常规”和“诊断”两个属性页 WinExec('RunDLL32.exe Shell32.dll,Control _RunDLL Modem.cpl', SW_SHOWNORMAL); //多媒体设置，可有ItemNo参数 //“音频”属性页 WinExec('RunDLL32.exe Shell32.dll, Control_RunDLL Mmsys.cpl,,0', SW_SHOWNORMAL); //“视频”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_ RunDLL Mmsys.cpl,,1', SW_SHOWNORMAL); //“MIDI”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_ RunDLL Mmsys.cpl,,2', SW_SHOWNORMAL); //“CD音乐”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_ RunDLL Mmsys.cpl,,3', SW_SHOWNORMAL); //“设备”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Mmsys.cpl,,4', SW_SHOWNORMAL); //辅助选项设置，可有ItemNo参数 //“键盘”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  access.cpl,,1',SW_SHOWNORMAL); //“声音”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  access.cpl,,2', SW_SHOWNORMAL); //“显示”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  access.cpl,,3', SW_SHOWNORMAL); //“鼠标”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  access.cpl,,4', SW_SHOWNORMAL); //“常规”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  access.cpl,,5', SW_SHOWNORMAL); //密码设置，没有提供参数区分“更改密码”和 “修改用户配置”两个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Password.cpl', SW_SHOWNORMAL); //区域设置，可有ItemNo参数 //“区域设置”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Intl.cpl,,0', SW_SHOWNORMAL); //“数字”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Intl.cpl,,1', SW_SHOWNORMAL); //“货币”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Intl.cpl,,2', SW_SHOWNORMAL); //“时间”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Intl.cpl,,3', SW_SHOWNORMAL); //“日期”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  Intl.cpl,,4', SW_SHOWNORMAL); //日期/时间设置，可有ItemNo参数 //“日期和时间”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  TimeDate.cpl,,0', SW_SHOWNORMAL); //“时区”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl,,1', SW_SHOWNORMAL); //鼠标设置，没有提供参数区别“按钮”、 “指针”和“移动”三个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl', SW_SHOWNORMAL); //添加/删除程序设置，可有ItemNo参数 //“安装/卸载”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  AppWiz.cpl,,1', SW_SHOWNORMAL); //“Windows安装程序”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  AppWiz.cpl,,2', SW_SHOWNORMAL); //“启动盘”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL AppWiz.cpl,,3', SW_SHOWNORMAL); //网络设置，没有提供参数区别“配置”、 “标识”和“访问控制”三个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  NetCpl.cpl', SW_SHOWNORMAL); //系统设置， //“常规”属性页，可有ItemNo参数 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  SysDm.cpl,,0', SW_SHOWNORMAL); //“设备管理器”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  SysDm.cpl,,1', SW_SHOWNORMAL); //“硬件配置文件”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,2', SW_SHOWNORMAL); //“性能”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,3', SW_SHOWNORMAL); //显示设置，可有ItemNo参数 //“背景”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,0', SW_SHOWNORMAL); //“屏幕保护程序”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,1', SW_SHOWNORMAL); //“外观”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  desk.cpl,,2', SW_SHOWNORMAL); //“设置”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,3', SW_SHOWNORMAL); //游戏控制器设置，可有ItemNo参数 //“一般”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Joy.cpl,,0', SW_SHOWNORMAL); //“高级”属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Joy.cpl,,1', SW_SHOWNORMAL); //扫描仪与数字相机设设置，没有提供参数区分 “设备”和“记录设置”两个属性页 WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL  StiCpl.cpl', SW_SHOWNORMAL);</pre>

吉花 · 2000-01-22

谢谢！谢谢！太多了！ 可能你没有理解我的问题： 我只想知道以下的情况： //系统设置，    //“常规”属性页，可有ItemNo参数    WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL     SysDm.cpl,,0', SW_SHOWNORMAL); 这样运行后，只是将系统对话框显示出来，并且将“常规”属性 激活。 我想知道怎样将该“常规”属性中显示的内容导出？

Bysoft · 2000-01-22

查一下注册表吧! 那里什么都有.... HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/ 请不要告诉我你不知道 TRegisty, OK!

吉花 · 2000-02-22

多人接受答案了。

怎样获得系统的一些常规属性(50分)

吉花

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

吉花

Unregistered / Unconfirmed

Bysoft

Unregistered / Unconfirmed

吉花

Unregistered / Unconfirmed

Similar threads