Comando TYPE del DOS y DELPHI con WinExec.

[manueljgc]

Saludos cordiales.

Estoy desarrollando una pequeña aplicación y al tratar de hacer una llamada al comando TYPE de DOS, desde DELPHI, este no se ejecuta.

WinExec(PChar(‘TYPE \\scounix\spoolwin\Archivo > PRN’, SW_SHOWNORMAL);

Alguien podría ayudarme.

Gracias de antemano.

[Neftali [Germán.Estévez]]

Prueba con las siguientes opciones:

// Esta funciona
WinExec(PChar('cmd /c type " \\scounix\spoolwin\Archivo" >> salida.txt'), SW_SHOW);
// Esta no se si funcionará
WinExec(PChar('cmd /c type " \\scounix\spoolwin\Archivo" >> PRN'), SW_SHOW);
// esta también debería funcionar (print en lugar de type)
WinExec(PChar('cmd /c print "\\scounix\spoolwin\Archivo"'), SW_SHOW);

[Neftali [Germán.Estévez]]

Otra opción podríaser utilizar un fichero BAT o CMD.
O incluso una tercera, crear una aplicación delphi de consola y pasarle parámetros.

[manueljgc]

Muchas gracias por responder.

Resolví de la siguiente manera:

ShellExecute(Handle, 'Open','Command.com',
PCHar('Command.com /c TYPE ' +
NameFilePrint + ' > LPT1'), '', SW_HIDE);

Gracias. Saludos.