在delphi中,如何用程序实现能调出windows控制面板的内容.

zcn 2000-08-18 05:39:00
在程序设计时,我编写程序实现调出控制面板的内容.如想调出'打印机'设置,或'输入法'设置.即用户点一下'打印机设置'或'输入法设置',程序就弹出象点了控制面板的相应项后出现的设置界面一样.
请问,这将如何实现,用ShellExecute行吗?
...全文
136 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
NiceFeather 2000-08-18
  • 打赏
  • 举报
回复
No,No,No,用下列语句就OK:
系统属性:shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
添加删除程序:shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1“)
......
于此类推。
PoolD 2000-08-18
  • 打赏
  • 举报
回复
直接用ShellExecute打开*.CPL文件就可以了,缺省状态下,CPL文件已经和Control.EXE建立了关联。
渤海海峡 2000-08-18
  • 打赏
  • 举报
回复
没错,就用他!
example,调时间:
if LMDSysInfo1.Platform='Windows 95' then
ExecuteFile(lmdsysinfo1.WinPath+'\control.exe','timedate.cpl',lmdsysinfo1.WinPath,SW_Show) else
ExecuteFile(lmdsysinfo1.WinsysPath+'\control.exe','timedate.cpl',lmdsysinfo1.WinPath,SW_Show);
mainform.StatusBar1.Panels[3].text:=datetostr(now);

其中ExecuteFile:
function ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧