控制面版大全 - Delphi K.Top 討論區

發表時間：2003-12-23 18:51:23

IP:61.217.xxx.xxx 未訂閱

在程式運行過程中啟動控制面板的各個設置功能： var x:cardinal; begin {啟動控制面板} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{輔助選項屬性-鍵盤} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);{輔助選項屬性-聲音} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);{輔助選項屬性-顯示} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);{輔助選項屬性-滑鼠} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);{輔助選項屬性-常規} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5',9);{添加/刪除程式屬性-安裝/卸載} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9);{添加/刪除程式屬性-Windows安裝程式} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,2',9);{添加/刪除程式屬性-啟動盤} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9);{顯示屬性-背景} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0',9);{顯示屬性-螢幕保護程式} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1',9);{顯示屬性-外觀} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2',9);{顯示屬性-設置} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3',9);{Internet 屬性-常規} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);{Internet 屬性-安全} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1',9);{Internet 屬性-內容} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2',9);{Internet 屬性-連接} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,3',9);{Internet 屬性-程式} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4',9);{Internet 屬性-高級} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,5',9);{區域設置屬性-區域設置} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,0',9);{區域設置屬性-數位} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,1',9);{區域設置屬性-貨幣} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,2',9);{區域設置屬性-時間} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,3',9);{區域設置屬性-日期} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Intl.cpl,,4',9);{遊戲控制器-一般} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,0',9);{遊戲控制器-高級} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Joy.cpl,,1',9);{滑鼠屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl',9);{多媒體屬性-音頻} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9);{多媒體屬性-視頻} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,1',9);{多媒體屬性-MIDI} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,2',9);{多媒體屬性-CD音樂} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,3',9);{多媒體屬性-設備} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,4',9);{數據機屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Modem.cpl',9);{網路} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Netcpl.cpl',9);{密碼屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9);{掃描器與數位相機屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sticpl.cpl',9);{系統屬性-常規} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,0',9);{系統屬性-設備管理器} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,1',9);{系統屬性-硬體配置檔} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,2',9);{系統屬性-性能} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Sysdm.cpl,,3',9);{日期/時間屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);{電源管理屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Powercfg.cpl',9);{撥號屬性} x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Telephon.cpl',9); {----------------------調用錯誤----------------------} if x=0 then messagebox(0,'程式超出記憶體','錯誤',0); if x=ERROR_BAD_FORMAT then messagebox(0,'該程式非一個合法的Win32.EXE程式).','錯誤',0); if x=ERROR_FILE_NOT_FOUND then messagebox(0,'指定檔沒找到','錯誤',0); if x=ERROR_PATH_NOT_FOUND then messagebox(0,'指定路徑沒找到','錯誤',0); end; ╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴．：☆﹒‧∴ ☆..．..