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

Question

没错，就用他！
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;

Answer 1

直接用ShellExecute打开*.CPL文件就可以了，缺省状态下，CPL文件已经和Control.EXE建立了关联。

Answer 2

No,No,No,用下列语句就OK:
系统属性：shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1"）
添加删除程序：shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1“）
......
于此类推。