此為轉貼資料 http://www.albertzhang.freeservers.com/delphi_tip21_2.htm 21.2. Deal with the control panel. ---- 應用程式運行時，有時需要對系統環境有特殊要求。例如，在Delphi資料庫應用程式中可能需要進行 BDE（Borland Database Engine）或ODBC資料源名稱（DSN:Data Source Name）的設置；在網路應用程式中可能需要進行網路配置設置、Modem屬性設置或用戶撥號連接的帳號和密碼的設置並保存在系統中；在 CTI（Computer-Telephony Integration ）應用程式中可能需要進行電話撥號屬性的設置；在遊戲程式中可能需要對多媒體或遊戲控制器進行設置；等等。這時候就需要改變Windows系統的環境設置，以適應應用程式正常運行的要求。當應用程式不能自行進行環境設置時，可能需要軟體用戶來參與、協助完成設置。 ---- Win9X/NT的大多數系統設置是在控制面板中進行的。我們可以要求用戶自己打開控制面板尋找相應的專案進行設置，此時要求用戶對控制面板相當熟悉；也可以在程式中自動爲用戶打開控制面板並選擇相應的專案，此時用戶所做的只是進行設置。後一種方法無疑更具有友好性，更能提高用戶的工作效率。 ---- 控制面板的大多數專案設置，都對應Windows的System目錄下的一個CPL文件，如“Internet”屬性對應的文件爲InetCpl.cpl、“多媒體”屬性對應的文件爲MmSys.cpl等。通過調用這些文件可以打開相應的屬性設置視窗，甚至可以跳到相應的屬性頁如“Internet”屬性的“連接”屬性頁，有效減少軟體用戶的操作步驟。 ---- CPL文件的調用格式爲“RunDLL32.exe Shell32.dll,Control_RunDLL CPLFile.cpl,,ItemNo”（可參見註冊表中HKEY_CLASSES_ROOT\cplfile\shell\cplopen\command的預設值），其中CPLFile.cpl爲CPL文件， ItemNo爲專案編號。在Delphi程式中，可以用WinExec或CreateProcess函數來實現CPL文件調用，從而實現對控制面板的設置專案的調用。如進行撥號連接的帳號和密碼設置要調用“Internet”屬性的“連接”屬性頁，可以用語句 “WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,3',, SW_SHOWNORMAL);”； ---- 解決２０００年問題中對兩位年份輸入的解釋要調用“區域設置”的“日期”屬性頁，可以用語句： “WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Intl.cpl,,4',, SW_SHOWNORMAL);”。 ---- 控制面板各專案設置調用所對應的語句列表如下： //打開控制面板 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); ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind