Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-06-2008
jmgc1982 jmgc1982 is offline
Miembro
 
Registrado: abr 2008
Posts: 19
Poder: 0
jmgc1982 Va por buen camino
Exclamation Ejecutar CMD...

Buenas,

Gracias por el consejo escafandra, ejecutar un comando desde un bat y desde builder C++ con system(), se como hacerlo.

Pero sobre lo que escribistes:

" Puedes crear un bat en el que escribes los comandos desde el edit y luego lo ejecutas."

Esto es lo que me gustaria saber, Como pasar el texto del edit hacia el CMD...

Por ejemplo:

Poniedo en el edit d: ; Con system("DIR X") y en el sitio de "X" poner el contenido del edit (D. Así cuando ejecuto, se ejecuta el CMD y hace un dir a la unidad escrita en el edit (C:, D:, etc...)

Gracias!!!
Responder Con Cita
  #2  
Antiguo 02-06-2008
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Escribes el archivo.bat, por ejemplo así:

Código:
    
#include <ios.h>
#include <fstream.h>
.
.
.
   fstream fs("archivo.bat", ios::out | ios::trunc);
    if(fs.fail()){
      AnsiString Msg = "Imposible escribir el fichero ";
      Application->MessageBox("Imposible escribir el fichero ", MB_ICONEXCLAMATION);
    }
    else{
      fs << Edit1->Text << endl;
      fs << "pause" << endl;
      fs.close():
    }
No es la única forma de escribir un archivo, hazlo como lo quieras...

Saludos.

EDITO:
Cita:
Empezado por jmgc1982 Ver Mensaje
Por ejemplo:

Poniedo en el edit d: ; Con system("DIR X") y en el sitio de "X" poner el contenido del edit (D. Así cuando ejecuto, se ejecuta el CMD y hace un dir a la unidad escrita en el edit (C:, D:, etc...)

Gracias!!!
pues en este caso sería:

Código:
    .
    .
    .
    else{
      AnsiString Cadena = (AnsiString)"dir " + Edit1->Text;
      fs << Cadena  << endl;
      fs << "pause" << endl;
      fs.close():
    }

Última edición por escafandra fecha: 02-06-2008 a las 17:11:20.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ejecutar programa externo con Lazarus abelaquino Lazarus, FreePascal, Kylix, etc. 1 12-05-2008 09:37:35
Ejecutar programa externo desde PHP fide PHP 10 07-02-2008 21:21:54
programa externo hugoacosta API de Windows 2 17-04-2006 19:44:57
Como usar una función de un programa externo xer0-q Providers 0 17-12-2005 15:53:48
Ejecutar un programa externo desde un programa de Delphi Roger_Fernandez Varios 3 02-09-2004 18:05:36


La franja horaria es GMT +2. Ahora son las 22:52:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi