enviar documento cargado a programa

[jonydread]

amigos nuevamente y muy prontamente solicito su ayuda
tengo el siguiente codigo de un programa en ms-dos
Handler.cmd

@Echo Off
TITLE Reg2Inf Converter Handler
setlocal enableextensions

:start
set WORKFILE=%~1
set OUTFILE=%~dpn1.inf
CD /D %~dp1

:reg2infExecute
If not defined WORKFILE goto usageinfo
If not exist "%WORKFILE%" goto notexist
If exist "%OUTFILE%" goto overwritewarning

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

:overwritewarning
color 0a
Echo.
Echo ** WARNING !
Echo.
Echo "%OUTFILE%": Already exists !
Echo.
:userpromptoverwrite
SET /P Result=- Overwrite ?: 
if /I "%Result%"=="yes" goto doit
If /I "%Result%"=="no" goto rename
If /I "%Result%"=="n" goto rename
goto userpromptoverwrite

:rename
SET /P OUTFILE=- New filename: 
If "%OUTFILE%"=="" goto rename
goto reg2infExecute

:usageinfo
color 0a
Echo.
Echo ** %~nx0 [NameOfRegFileToConvert.Reg]
Echo.
Echo - The output INF will be created in the same folder as the input REG
Echo   and with the same name (in this case: NameOfRegFileToConvert.Inf)
Echo.
Echo - Input REG file must exist, you will be prompted if a file with the
Echo   same name as the Output INF already exists.
Echo.
Echo ** Press any key to exit . . .
PAUSE > NUL
goto end

:notexist
color 4f
Echo.
Echo ** "%WORKFILE%": Does not exist !
Echo.
Echo ** Press any key to exit . . .
PAUSE > NUL
goto end

:end
endlocal

realmente no se como modificar el codigo para hacerlo correr en mi form
creo que seria mas facil tomar el archivo cargado y enviarlo a este programa
tengo los sgtes comando para tomar un archivo y quisiera enviarlo a su ejecución he visto codigos por aqui pero no me han servido si me orientaran un poco lo agradeceria

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter := 'Archivos de registro|*.reg';
opendialog1.Execute;
if FileExists(OpenDialog1.FileName) then
  else
    ShowMessage(Edit1.Text+' Archivo no encontrado');
edit1.Text := OpenDialog1.FileName;
end;

[ecfisa]

Hola jonydread.

No estoy seguro de entender lo que buscas hacer, pero si se trata de ejecutar el archivo HANDLER.CMD, sería:

Código Delphi [-]
...
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'HANDLER.CMD', nil, nil, SW_NORMAL);
end;

Un saludo.

[jonydread]

Necesito tomar un archivo .reg por medio del boton abrir cargarlo a que handler.cmd lo procese por medio de un boton convertir
gracias por su respuesta!

[ecfisa]

Entiendo, probá de este modo:

Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter := 'Archivos de registro|*.reg';
  if OpenDialog1.Execute then
    ShellExecute(Handle, 'open', 'HANDLER.CMD', PChar(OpenDialog1.FileName), nil, SW_NORMAL);
end;

Un saludo.

[jonydread]

funciona ese codigo si coloco las rutas que no es la idea

Código Delphi [-]
 PChar('c:\miarchivo.reg')

en cambio asi

Código Delphi [-]
 PChar(OpenDialog1.FileName)

no hace nada probe con edit1.text y tampoco lo botones que tengo estan asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter := 'Archivos de registro|*.reg';
opendialog1.Execute;
if FileExists(OpenDialog1.FileName) then
  else
    ShowMessage(Edit1.Text+' Archivo no encontrado');
edit1.Text := OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ShellExecute(Handle, 'open', 'HANDLER.CMD', PChar(OpenDialog1.FileName), nil, SW_NORMAL);

end;

primer boton carga archivo
segundo lo envia al programa externo
gracias!

[ecfisa]

Hola.

Seguramente el problema lo tengas en como maneja el parámetro Handler.cmd ¿ Por que pienso eso ? Acabo de hacer la siguiente prueba:

Contenido del Handler.cmd que cree en mi equipo:

set WORKFILE=%~1
type %~1
PAUSE

Este código muestra el contenido de un archivo enviado como parámetro y espera la pulsación de una tecla. Lo podes comprobar fácilmente escribiendo desde el propmt:

C:\>HANDLER C:\TEMP\ARCHIVO.TXT

(Ruta+Nombre de un archivo de texto existente)

Luego desde Delphi, ejecuto este código:

Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter := 'Archivos de texto|*.TXT';
  if OpenDialog1.Execute then
    ShellExecute(Handle, 'open', 'C:\HANDLER.CMD', PChar(OpenDialog1.FileName), nil, SW_NORMAL);
end;

Y sin ningún problema, visualizo en la ventana de símbolo de sistema el contenido del archivo .TXT enviado mediante ShellExecute.

No hay error en el envío del parámetro mediante ShellExecute ni en la recepción del mismo por Handler.cmd, por lo tanto el problema debe suceder luego en el manejo que hace Handler.cmd con el parámetro que recibió.

Un saludo.