有API函数:WinExec(),可以在帮助中查到。另外还有两个函数:是 ShellExec,另一个记不清了。

解决方案 »

  1.   

    给你一个例子:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
      StdCtrls,ShellAPI;
      //别忘了加ShellAPI单元;type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
    begin
      shellexecute(handle,'','Notepad.exe','','C:\Windows',sw_show);
    end;end.