Ejecutar codigo de dos dentro de Programa Delphi

[[fer21unmsm]]

Hola Jerlim léete el siguiente hilo allí puede estar la solución a lo que buscas.

Saludos.

[[seoane]]

Revisa este truco , en el se explica una funcion que pasandole como parametro el comando de dos te devuelve el resultado en un string

[JELIRM]

season, mira esta funcion funciona con el ms-dos de Windows 9x???
porque segun el codigo pareciera que solo funciona de Win NT para arriba que se abre la consola del dos con CMD.
funcionaria para el "command" de windows 9x???

y gracias season por tu respuesta y tambien a ti fer21unmsm..

[[seoane]]

Funciona tambien en Windows 9x. La razon de que compruebe en que version de windows estoy es porque en windows 9x algunos parametros son ignorados. Ademas observaras que en vez de usar la ruta del cmd.exe o del command.com utilizo la variable de entorno COMSPEC donde se guarda la ruta del interprete de comandos, asi dependiendo de en que sistema operativo se ejecute utilizara uno u otro.

PD: Me llamo Seoane

[JELIRM]

Gracias seoane je,je y perdona pero es que tambien se parece a esta palabra inlgesa; asi que diculpa nuevamente, y ahorita voy a probar esa funcion, te comento mis resultados y problemas que esto conlleve gracias..

[JELIRM]

seoane fijate que funciona de maravilla la funcion pero solo en mi pcquiero pero la funcion o la finanlidad de hacer esto era que esta aplicacion la voy a tener en una pc como SERVIDORA, entonces cuando otra maquina(Cliente) corra la aplicacion(Como ShourtCut) al Servidor le devuelva la ip pero de la maquina cliente.
lo hice pero en lugar que me devuelva la ip me devuelve el siguiente mensaje de error:
"CMD.EXE was started \\Nombre maquina del Servidor as the current directory path.UNC paths are not supported defaulting to windows directory."
y seguido a este mensaje me muestra la ip 10.xx.xx.xx (de la Cliente)la cual es correcta pero ese mensaje de error me hace clavo ahi.

gracias por tu ayuda.

[[seoane]]

A primera vista parece que le problema es debido a que cmd no permite usar una carpeta remota como directorio actual. Pues bien, le diremos que use otro, por ejemplo el de windows. En vez de esta linea:

Código Delphi [-]
if CreateProcess(nil, @Buffer, nil, nil, TRUE, CREATE_NEW_CONSOLE, nil, nil, si, pi) then

Coloca esta otra:

Código Delphi [-]
if CreateProcess(nil, @Buffer, nil, nil, TRUE, CREATE_NEW_CONSOLE, nil, 'C:\Windows\', si, pi) then

Eso deberia de solucionar ese error.