Detectar error winexec

[grotero76]

Gracias por tu respuesta,

el caso es que la función winexec devuelve lo mismo tanto si la ejecución fue bien como sino. Por ejemplo pruebo a ejecutar un DTS que existe y uno que no y el resultado de hacer el winexec lo capturo en una variable entera, siempre obtengo el mismo resultado, en mi caso un 33.

La verdad que no sé qué hacer.

Muchas gracias y un saludo.

[Khronos]

Hola!

Código Delphi [-]
uses Windows;

var
   ExecError: DWORD;
begin

ExecError:=WinExec(pcahr('MiPrograma.exe'), 1);
      If ExecError>31 then showmessage('MiPrograma.exe se ha ejecutado satisfactoriamente');

    case ExecError of
           0: showmessage('Error en la memoria');
           ERROR_BAD_FORMAT: showmessage('Error en el formato del archivo');
           ERROR_FILE_NOT_FOUND: showmessage('Archivo no encontrado');
           ERROR_PATH_NOT_FOUND: showmessage('La dirección especificada no existe');
    end;

end;

Salu2 espero que te sirva.

[grotero76]

Hola Khronos,

gracias por tu respuesta, he encontrado otro método de ejecución de DTS sin falta de usar una función DOS...
Lo pongo a continuación por si le sirve a alguien:

 
procedure EjecutarDTS;
var
  pkg: Variant;
  i:integer;
begin
  pkg:= CreateOleObject('DTS.Package');
  try
    pkg.LoadFromSQLServer(datasourceName,UserName,Password,,,,,dtsName),'');
    for i := 1 to pkg.steps.count do
      pkg.steps.Item(i).executeinMainThread := True;
    pkg.FailOnError := true;
    pkg.Execute;
    MessageDlg('La ejecución se ha realizado correctamente',mtInformation,[mbOK],0);
  except
  on E: Exception do
  begin
    showmessage('Error = ' + E.Message);
    exit;
  end;
end;
pkg.uninitialize;
pkg:=UnAssigned;
end;

Un saludo