Ejecutar un Programa desde delphi

[ecfisa]

Hola wcbs.

Se que te has tomado mucho trabajo en componer la parte de código que aparece en tu mensaje, pero nadie puede leerlo de la forma en que aparece.

Te aconsejo que cuando incluyas código en tus mensajes utilizes TAG's, aquí una imágen que explica el uso:



Por lo pronto traté de acomodarlo lo mejor que pude:

Código Delphi [-]
var    
  SEInfo: TShellExecuteInfo;    
  ExitCode: DWORD;    
  ExecuteFile, ParamString, StartInString: string;   
begin
  ExecuteFile:='c:\Windows\Calc.exe';   
  FillChar(SEInfo, SizeOf(SEInfo), 0);   
  SEInfo.cbSize:= SizeOf(TShellExecuteInfo;   
  with SEInfo do
  begin   
    fMask:= SEE_MASK_NOCLOSEPROCESS;     
    Wnd := Application.Handle;     
    lpFile := PChar(ExecuteFile);
    // ParamString contiene i parametri da passare all'applicazione.
    // lpParameters := PChar(ParamString);
    // StartInString specifica il nome della directory dell'applicazione
    // se omesso verrà usata la directory corrente.
    // lpDirectory := PChar(StartInString);
    nShow := SW_SHOWNORMAL;
  end;   
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;       
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);     
    until (ExitCode  STILL_ACTIVE) or Application.Terminated;     
    ShowMessage('Calculator terminated');   
  end
  else
   ShowMessage('Error starting Calc!')
end;

Si la recomposición que hice no llegara a ser correcta, pone el código en un nuevo mensaje del modo que explica la imágen.

Saludos y gracias por tu colaboración