首先复习怎样调用外部程序:
Delphi 运行外部程序是使用 Windows.WinExec 或 ShellAPI.ShellExecute, 譬如:
WinExec('notepad.exe', SW_NORMAL); {打开记事本} WinExec('regedit.exe', SW_NORMAL); {打开注册表编辑器}DLL 文件与 EXE 文件的主要区别就是 EXE 可以直接运行, 而 DLL 不可以;
但在 Win32 系统下, 我们可以使用系统文件 rundll32.exe 调用 DLL 中的功能;
譬如下面一句程序可以打开控制面板窗口:
WinExec('rundll32.exe shell32.dll,Control_RunDLL', SW_NORMAL); //可以简化一下(省略后缀): WinExec('rundll32 shell32,Control_RunDLL', SW_NORMAL); //SW_NORMAL 是窗口打开状态选项的常量, 它的值是 1, 为了代码简洁, 可以再简化: WinExec('rundll32 shell32,Control_RunDLL', 1);本例效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/142973/o_87261.png)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; Button17: TButton; Button18: TButton; Button19: TButton; Button20: TButton; Button21: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); procedure Button19Click(Sender: TObject); procedure Button20Click(Sender: TObject); procedure Button21Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL', 1); {控制面板} end; procedure TForm1.Button2Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL access.cpl', 1); {辅助功能选项} end; procedure TForm1.Button3Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL appwiz.cpl', 1); {添加或删除程序} end; procedure TForm1.Button4Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL desk.cpl', 1); {显示 属性} end; procedure TForm1.Button5Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL firewall.cpl', 1); {Windows 防火墙} end; procedure TForm1.Button6Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL hdwwiz.cpl', 1); {添加硬件向导} end; procedure TForm1.Button7Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL inetcpl.cpl', 1); {Internet 属性} end; procedure TForm1.Button8Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL intl.cpl', 1); {区域和语言选项} end; procedure TForm1.Button9Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL irprops.cpl', 1); {无线链接} end; procedure TForm1.Button10Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL joy.cpl', 1); {游戏控制器} end; procedure TForm1.Button11Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL main.cpl', 1); {鼠标 属性} end; procedure TForm1.Button12Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL mmsys.cpl', 1); {声音和音频设备 属性} end; procedure TForm1.Button13Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL ncpa.cpl', 1); {网络连接} end; procedure TForm1.Button14Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL netsetup.cpl', 1); {网络安装向导} end; procedure TForm1.Button15Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL nusrmgr.cpl', 1); {用户帐号} end; procedure TForm1.Button16Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL odbccp32.cpl', 1); {ODBC 数据源管理器} end; procedure TForm1.Button17Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL powercfg.cpl', 1); {电源选项 属性} end; procedure TForm1.Button18Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL sysdm.cpl', 1); {系统属性} end; procedure TForm1.Button19Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL telephon.cpl', 1); {电话和调制解调器选项} end; procedure TForm1.Button20Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL wscui.cpl', 1); {Windows 安全中心} end; procedure TForm1.Button21Click(Sender: TObject); begin WinExec('rundll32 shell32,Control_RunDLL wuaucpl.cpl', 1); {自动更新} end; end.窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 227 ClientWidth = 430 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 8 Top = 8 Width = 132 Height = 25 Caption = #25511#21046#38754#26495#31383#21475 TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 8 Top = 39 Width = 132 Height = 25 Caption = #36741#21161#21151#33021#36873#39033 TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 8 Top = 70 Width = 132 Height = 25 Caption = #28155#21152#25110#21024#38500#31243#24207 TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 8 Top = 101 Width = 132 Height = 25 Caption = #26174#31034' '#23646#24615 TabOrder = 3 OnClick = Button4Click end object Button5: TButton Left = 8 Top = 132 Width = 132 Height = 25 Caption = 'Windows '#38450#28779#22681 TabOrder = 4 OnClick = Button5Click end object Button6: TButton Left = 8 Top = 163 Width = 132 Height = 25 Caption = #28155#21152#30828#20214#21521#23548 TabOrder = 5 OnClick = Button6Click end object Button7: TButton Left = 8 Top = 194 Width = 132 Height = 25 Caption = 'Internet '#23646#24615 TabOrder = 6 OnClick = Button7Click end object Button8: TButton Left = 150 Top = 8 Width = 132 Height = 25 Caption = #21306#22495#21644#35821#35328#36873#39033 TabOrder = 7 OnClick = Button8Click end object Button9: TButton Left = 150 Top = 39 Width = 132 Height = 25 Caption = #26080#32447#38142#25509 TabOrder = 8 OnClick = Button9Click end object Button10: TButton Left = 150 Top = 70 Width = 132 Height = 25 Caption = #28216#25103#25511#21046#22120 TabOrder = 9 OnClick = Button10Click end object Button11: TButton Left = 150 Top = 101 Width = 132 Height = 25 Caption = #40736#26631' '#23646#24615 TabOrder = 10 OnClick = Button11Click end object Button12: TButton Left = 150 Top = 132 Width = 132 Height = 25 Caption = #22768#38899#21644#38899#39057#35774#22791' '#23646#24615 TabOrder = 11 OnClick = Button12Click end object Button13: TButton Left = 150 Top = 163 Width = 132 Height = 25 Caption = #32593#32476#36830#25509 TabOrder = 12 OnClick = Button13Click end object Button14: TButton Left = 150 Top = 194 Width = 132 Height = 25 Caption = #32593#32476#23433#35013#21521#23548 TabOrder = 13 OnClick = Button14Click end object Button15: TButton Left = 291 Top = 8 Width = 132 Height = 25 Caption = #29992#25143#24080#21495 TabOrder = 14 OnClick = Button15Click end object Button16: TButton Left = 291 Top = 39 Width = 132 Height = 25 Caption = 'ODBC '#25968#25454#28304#31649#29702#22120 TabOrder = 15 OnClick = Button16Click end object Button17: TButton Left = 291 Top = 70 Width = 132 Height = 25 Caption = #30005#28304#36873#39033' '#23646#24615 TabOrder = 16 OnClick = Button17Click end object Button18: TButton Left = 291 Top = 101 Width = 132 Height = 25 Caption = #31995#32479#23646#24615 TabOrder = 17 OnClick = Button18Click end object Button19: TButton Left = 291 Top = 132 Width = 132 Height = 25 Caption = #30005#35805#21644#35843#21046#35299#35843#22120#36873#39033 TabOrder = 18 OnClick = Button19Click end object Button20: TButton Left = 291 Top = 163 Width = 132 Height = 25 Caption = 'Windows '#23433#20840#20013#24515 TabOrder = 19 OnClick = Button20Click end object Button21: TButton Left = 291 Top = 194 Width = 132 Height = 25 Caption = #33258#21160#26356#26032 TabOrder = 20 OnClick = Button21Click end end