enviar documento cargado a programa

[jonydread]

muchas gracias probare y comento!!

[jonydread]

opendialog1.filename
toma la ruta con espacios y no funciona probe un directorio sin espacios y funciona bien que se puede hacer

[ecfisa]

Hola.

Creo que el problema se produce por que Handler.CMD no puede manejar los nombres largos de archivo, probá de este modo:

Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  ShortName: array[0..255] of char;
begin
  OpenDialog1.Filter:= 'Archivos de registro|*.REG';
  with OpenDialog1 do
    if Execute then
    begin
      GetShortPathName(PChar(FileName), @ShortName, Length(FileName));
      ShellExecute(Handle, 'open', 'C:\HANDLER.CMD', PChar(@ShortName), nil, SW_NORMAL);
    end;
end;

Un saludo.

[jonydread]

no me funciona muchas gracias por la ayuda creo que tratare de trabajar el cmd haber si lo compilo dentro del mismo form sin necesitar el cmd a las finales creo que la parte mas importante es esta

:doit
Echo.
Echo ** Converting "%~nx1" ...
reg2inf.exe "%WORKFILE%" "%OUTFILE%"
Echo.
PAUSE
goto end

vere si logro ejecutar ese exe, workfile es el archivo que tomo y darle un nombre de salida buscare como hacerlo y comento!!
Gracias!!

[jonydread]

reduci el ejecutable cmd
existe alguna forma de realizar lo mismo en un shellexecute de delphi, no se un boton que envie estos mismos parametros?

@Echo Off
TITLE Reg2Inf Converter Handler
setlocal enableextensions

:start
set WORKFILE=%~1
set OUTFILE=%~dpn1.inf
CD /D %~dp1
Echo.
Echo ** Converting "%~nx1" ...
reg2inf.exe "%WORKFILE%" "%OUTFILE%"
Echo.
PAUSE
goto end
:end
endlocal

[jonydread]

Empezado por ecfisa

Hola.

Creo que el problema se produce por que Handler.CMD no puede manejar los nombres largos de archivo, probá de este modo:

Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  ShortName: array[0..255] of char;
begin
  OpenDialog1.Filter:= 'Archivos de registro|*.REG';
  with OpenDialog1 do
    if Execute then
    begin
      GetShortPathName(PChar(FileName), @ShortName, Length(FileName));
      ShellExecute(Handle, 'open', 'C:\HANDLER.CMD', PChar(@ShortName), nil, SW_NORMAL);
    end;
end;

Un saludo.

Al final si funciono!! Gracias!

[jonydread]

disculpa por seguir el hilo pero me salio un problema
el shortname toma bien los archivos pero rutas largas al parecer
tengo : D:\re2\delphi\run.reg , dice no existe
tengo : D:\re2\delphi\copiaderun.reg , lo convierte sin problemas a que se debe