请问在delphi中怎样调用windows的命令或执行另一个程序

Question

rt

Answer 1

procedure TFrmStart.SpeedButton15Click(Sender: TObject);
var
  pp:pchar;
begin
  pp:=Pchar(ExtractFilePath(Application.exeName)+'htm\考试大纲.htm');
  try
    Shellexecute(0,'open',pp,nil,nil,SW_SHOWNORMAL);
  except
    showmessage('无法打开安装程序！');
  end;end;

Answer 2

具体点做例如执行 net send命令

Answer 3

不必
用shellexecute(handle,nil,'可执行文件路径',nil,nil,sw_show);

Answer 4

WinExec(文件路径文件名、1）；

Answer 5

WinExec('c:\boot.ini',SW_SHOW）；
如上例,用命令行也行,不过需要放一个缓冲文件在SW_SHOW前面.

Answer 6

也可以用CREATEPROCESS（）这个API函数。

Answer 7

在uses中加shellapiuse "ShellExecute();"