Comando S.O.

[jachguate]

Empezado por fjcg02

Para alimentar tu curiosidad.

No es por simple curiosidad... habrán algunos comandos que se pueden tratar de una forma o de otra...

En el caso del arp, ya lo tenes redireccionado a un fichero, por lo que no necesariamente tenes que "asignar el resultado a una variable" como lo habias planteado.

Cuando lanzas el comando, si lo haces con ShellExecute, podes enviarle sw_hide en el parámetro nShowCmd, de manera que la ventana de consola no sea visible, y seguir tratando el archivo generado por la captura de la salida estándar al concluir su ejecución.

Empezado por fjcg02

Al grano, creo que algunos 'compañeros' se conectan a mi pc y me extraen ficheros que son de mi propiedad

Esto se combate con acceso restringido a los recursos compartidos o con otras técnicas que te protejan "a priori" de los intrusos.... un programa que te diga quien ser robó tu información, no será muy util...

Hasta luego.

[[fjcg02]]

Hola amigos ( me tomo la libertad de trataros como tal ... )

He estado haciendo pruebas con el tema este de marras y me dice que el fichero donde redirecciono la salida no existe, por lo que parece que no se ejecuta el comando.
Pistas:
- strCommand contiene 'arp -a > c:\borrar.txt', confirmado.
- Si pongo SW_SHOW arranca una ventana porque la veo abrirse y cerrarse.
- Y poco más. Muestro las líneas para comprobar que lo hago bien.
En la ayuda no he encontrado documentación de winexec.
Utilizo Delphi 7

Agradecería cualquier sugerencia o similar.
Adjunto el código

****************************************************
procedure TFormMain.comprobar;
var n: integer;   strCommand : String; zCommand : array[0..79] of Char;
begin
  strCommand:= EComando.Text+' > '+FileListBox2.Directory+Esalida.text;
  winexec(StrPCopy(zCommand, StrCommand), SW_HIDE);
  Salida.LoadFromFile(ESAlida.Text);
  For n:=0 to Salida.Count-1 do
  showmessage(Salida[n]);
end;

Error: Cuando hace el LoadFromFile dice que el fichero que tiene ESalida.Text no existe.
****************************************************

Un saludo a todos

[jmoran]

Hola,

He hecho la prueba que mencionabas y no se crea el fichero porque winexec no interpreta bien la orden, si la ejecutas desde el dos arp -a > c:\result.txt funciona sin problemas pero parece que winexec interpreta el > y el nombre de fichero como parametros de arp y no del sistema, genera un error y no crea el fichero destino.

Si pruebas a ejecutar un bat (WinExec('c:\proceso.bat',.SW_..); y dentro del bat tienes arp -a > c:\result.txt, lo genera sin problemas.

Puedes modificar el código para que autogenere el bat y lo ejecute.

Con respecto a arp, puedes usar tambien net file, que te da la lista de ficheros propios abiertos por otras máquinas en la red, indicando el usuario que lo hace y todo.

[[fjcg02]]

Gracias, lo porbaré en cuanto pueda.

Un saludo

[[fjcg02]]

Todo probado y funcionando OK.

Gracias por todo.

Un saludo
PD: Si alguien tiene una idea más elegante al respecto, estaré encantado de recibir sugerencias...

[jachguate]

jmorán tiene toda la razón al respecto del redireccionamiento.

Te queda la opción de, en lugar de ejecutar un bat, invocar al interprete de comandos, que si interpretará correctamente la redirección y creará el archivo de texto.

El nombre del interprete se almacena en la variable de entorno COMSPEC, y le podes invocar con el parámetro /c.

algo como:

Código Delphi [-]
ShellExecute('c:\windows\command.com /c comando >archivo.txt', sw_hide);

Hasta luego.

[luigidean]

He estado mirando este hilo y me ha parecido bastante interesante. He probado la ultima solucion que da jachguate pero a mi no me va. La que si me funciona es la que ponen mas arriba de pasar la cadena a un archivo .bat y luego ejecutar ese archivo .bat con el shellexecute.

Saludos y perdon por escribir como que 3 meses despues de la ultima respuesta de jachguate