请问如何写控制面版程序。

Question

是使用控制面版里的功能还是……
如果是前者可以使用API
UNIT WinExec(LPCSTR lpCmdLine,UINT uCmdShow);
如
x=:winexec('rundll32.exe shell32.dll,Control_RunDLL access.col,,3,',9);

Answer 1

打开file菜单，选择new ,选择control panel application 即可。

Answer 2

是用delphi的new->control panel application

Answer 3

.cpl实际上就是一个普通的exe程序。具体怎么写这些.cpl，可以参考“深度历险”这本书，里面有详细介绍。

Answer 4

可以参考“深度历险”这本书，里面有详细介绍
而且你可以到delphi.mychangshu.com里面去下载这本书的源码

Answer 5

.cpl实际上就是一个普通的dll程序。
具体怎么写这些.cpl，可以参考“深度历险”这本书，里面有详细介绍。
下面是个书上的例子
library hellocpl; // 盢 program э library, ボ璶籹 DLLuses
  Windows,
  SysUtils,
  Dialogs,
  CPL; // 级糶 Control Panel Applet 祘Αゲ斗 uses CPL.PAS{$R hello.res} // 硈挡戈方郎procedure MsgBox(const Msg: string);
begin
  MessageBox(0, PChar(Msg), 'Hello, Control Panel',
    MB_ICONINFORMATION);
end;function CPlApplet(hwndCPL: HWND; uMsg: UINT;
    lParam1: LPARAM; lParam2: LPARAM): LongInt; stdcall;
var
  pInfo: PCPlInfo;
begin
  case uMsg of
    CPL_INIT:
    begin
      MsgBox('Μ CPL_INIT !!');
      Result := 1; // Θ
    end;
    
    CPL_GETCOUNT:
    begin
      MsgBox('Μ CPL_GETCOUNT !!');
      Result := 1; // じン
    end;
    
    CPL_INQUIRE:
    begin
      MsgBox('Μ CPL_INQUIRE !!');
      
      pInfo := PCPlInfo(lParam2);
      
      with pInfo^ do
      begin
        idName := 1; // 嘿 Resource ID
        idInfo := 2; // 磞瓃 Resource ID
        idIcon := 5; // 瓜ボ Resource ID
        lData := 0; // ぃ惠ㄏノ璹戈
      end;
    end;    CPL_NEWINQUIRE:
    begin
      MsgBox('Μ CPL_NEWINQUIRE !!');
    end;    CPL_DBLCLK:
    begin
      MsgBox('Μ CPL_DBLCLK !!');      MsgBox('顿, и琌程ォ北じン !!');
      
      Result := 0; // Θ
    end;
    
    CPL_STOP:
    begin
      MsgBox('Μ CPL_STOP !!');
      Result := 0; // Θ
    end;
    
    CPL_EXIT:
    begin
      MsgBox('Μ CPL_EXIT !!');
      Result := 0; // Θ
    end;
  end;
end;// 蹲 CPlApplet ㄧΑ
exports
  CPlApplet;begin
end.

Answer 6

非常感谢您的答复，其实我想知道的是如何利用delphi的new->control application这个架子写控制面版程序.