ejecutar ap.ext. dir. y nombre in & outfile

[jonydread]

lo he hecho asi

Código Delphi [-]
procedure TReg2infConverter.Button2Click(Sender: TObject);
var Origen, Destino,FileName: string;
begin
Origen := GetshortName(Opendialog1.FileName);
Destino :=ChangeFileExt(FileName, '.inf');
FileName := ExtractFileName(Opendialog1.FileName);
FileName := StringReplace(FileName,' ','_',[rfReplaceAll]);
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
end;

es la única forma que realiza la acción pero el archivo de salida sale sin nombre .inf solamente
para que quede mas claro
este archivo esta en esta ruta
D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copia de arch.reg (con este da el problema)
D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copiadearch.reg (este realiza la acción y conserva el nombre completo)

[ecfisa]

D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copia de arch.reg (con este da el problema)
D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copiadearch.reg (este realiza la acción y conserva el nombre completo)

Entonces:

Código Delphi [-]
use StrUtils;
...
  ArchivoSalida:= AnsiReplaceStr(ArchivoSalida,' ','');

Pero entonces no se condice con lo que expusiste en el mensaje anterior: "estoy buscando como reemplazar el espacio por _ ..."

Un saludo.

[jonydread]

es lo mismo por lo que se reemplaze pero el enredo lo tenia yo jaj gracias ay funciono de pelos!!

Código Delphi [-]
procedure TReg2infConverter.Button2Click(Sender: TObject);
var Origen, Destino,FileName: string;
begin
FileName := Extractfilename(Opendialog1.FileName);
Origen := GetshortName(Opendialog1.FileName);
FileName:= AnsiReplaceStr(FileName,' ','');
Destino :=ChangeFileExt(FileName, '.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
end;

la otra consulta que ise puse el codigo hintance para comprobar shellexecute
lo coloque aqui

Código Delphi [-]
procedure TReg2infConverter.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
var
 HINSTANCE: Integer;
  ErrorMSG: string;
begin
   HINSTANCE:=ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              PChar(Origen+' '+Destino),
              PChar(GetShortName(ExtractFilePath(App))),
              SW_HIDE);
                if HINSTANCE < 32 then
      begin
        case HINSTANCE of
          0: ErrorMSG:= 'Memoria o recursos insuficientes';
          ERROR_FILE_NOT_FOUND: ErrorMSG:= 'Archivo no encontrado';
          ERROR_PATH_NOT_FOUND: ErrorMSG:= 'Ruta no encontrada';
          SE_ERR_ACCESSDENIED:  ErrorMSG:= 'Acceso denegado';
          //...
        end;
        MessageBox(Handle, PChar(ErrorMSG), 'ERROR', MB_ICONERROR + MB_OK);
        Application.Terminate;
       end;
end;

pero no funciono

[ecfisa]

Hola.

¿ Que es lo que no funcionó, no ejecuta el programa , te da alguna excepción ?

Saludos.

[jonydread]

ise la prueba cargando un archivo y le cambie el nombre y no tira el error de no encontrado

[ecfisa]

Hola.

La función ShellExecute no te va a informar ningún error si la ruta y el nombre de archivo enviado en el argumento App es correcto.

Es taréa de la aplicación invocada por ShellExecute el manejar cualquier error en los nombres enviados en los parámetros Origen o Destino.


Un saludo.