请问在Delphi中如何直接的调用应用程序？

Question

procedure TfrmSplash.CallSubSys(const SysID: Integer);
var
  SysAddr: String;
begin
  SysAddr := Application.ExeName;
  SysAddr := Copy(SysAddr, 1, LastDelimiter('\', SysAddr)-1);  case SysID of
    1: { 调用计划管理系统 }
      SysAddr := SysAddr + '\计划管理系统\ProJHGL.exe';
    2: { 调用统计管理系统 }
      SysAddr := SysAddr + '\统计管理系统\ProTJGL.exe';
    3: { 调用成本控制系统 }
      SysAddr := SysAddr + '\成本控制系统\ProCBKZ.exe';
  end;  if FileExists(SysAddr) then
    WinExec(PChar(SysAddr), SW_NORMAL);
end;

Answer 1

winexec(pchar('app name',sw_show);
or
shellexecute(handle,'open',pchar(app name),pchar('app parameters'),
pchar('app start path'),sw_show); use this way can open all file except they are not register in windows!
eg: open a .exe shellexecute(hanlde,'open','a.exe',nil,nil,sw_show);
open a word document shellexecute(handle,'open','a.doc',nil,nil,sw_show);