你用CreateProcess创建进程吧,这个函数会返回一个被创建进程的句柄的,用TerminateProcess可以停止此进程。

解决方案 »

  1.   

    to aper168(凌宇) :治标不治本啊!
      

  2.   

    to  mshawk(憨憨) :可以详细讲一下CreateProcess的参数吗?最好有个例子!!!
      

  3.   

    var
      hProcess:THandle;
      szCommandLine:string=' -n ';
      sui:TStartupInfo;
      pi:TProcessInformation;
      
    begin
    //Create the Process
      sui.cb:=sizeof(TStartupInfo);
      sui.lpReserved:=nil;
      sui.lpDesktop:=nil;
      sui.lpTitle:=nil;
      sui.hStdOutput:=hWritePipe;//这个你可以不设
      sui.hStdError:=hWritePipe;//这个你可以不设
      sui.dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;  CreateProcess('c:\winnt\windump.exe', PChar(szCommandLine), nil, nil, True, 0, nil, nil, sui, pi);
      hProcess:=pi.hProcess;
    //Wait
      Sleep(SleepTime);
    //Terminate the Process
      TerminateProcess(hProcess,0);
    end;