Ver Mensaje Individual
  #6  
Antiguo 04-01-2007
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por Gaby123
yo la ejecuto con shellexec y le paso como operacion 'open', pero no se como cerrarla luego.
Tratándose de un proceso que tu mismo creas, yo te recomendaría en lugar de usar ShellExecute, utilizar un CrateProcess y mantener el handle del proceso hasta que decidas terminarlo.

Código Delphi [-]
var
  lStartupInfo: TStartUpInfo;
  lProcessInfo: TProcessInformation;
begin
  ZeroMemory(@lStartupInfo, SizeOf(STARTUPINFO));
    with lStartupInfo do
  begin
    cb := SizeOf(lStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  end;

  if CreateProcess(nil, 'calc.exe', nil, nil, TRUE,
                   NORMAL_PRIORITY_CLASS, nil, nil, lStartupInfo, lProcessInfo) then
    if WaitForSingleObject(lProcessInfo.hProcess, 5000) = WAIT_TIMEOUT then
      TerminateProcess(lProcessInfo.hProcess, 0);
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita