Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-08-2007
Stevenmn Stevenmn is offline
Miembro
 
Registrado: may 2007
Posts: 13
Poder: 0
Stevenmn Va por buen camino
WinExcec

Buenas lo que pasa es que tengo esto no
WinExec( 'COMMAND.COM /C dir C:\ >> C:\log.txt', SW_HIDE );

ejeucta el comando bien y todo, pero siempre me tocaria cambiarlo desde el code y andaba buscadno una forma de hacerlo, probe poniendole un edit.text en vez del comando algo asi

WinExec( 'COMMAND.COM /C' + edit1.Text + '>> C:\log.txt', SW_HIDE );

Pero me dice Incompatybles type string and PAnsiChar.
Responder Con Cita
  #2  
Antiguo 11-08-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
Prueba asi


Código Delphi [-]
WinExec( PAnsiChar('COMMAND.COM /C' + edit1.Text + '>> C:\log.txt'), SW_HIDE );
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #3  
Antiguo 11-08-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Poder: 25
egostar Va camino a la fama
Hola Stevenmn

El problema es un error de casting asume que estas queriendo pasar un string a un parámetro que requiere ser de tipo PChar, prueba con esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  S : String;
begin
  S := 'COMMAND.COM /C' + edit1.Text + '>> C:\log.txt';
  WinExec(PChar(S),SW_HIDE);
end;

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #4  
Antiguo 11-08-2007
Stevenmn Stevenmn is offline
Miembro
 
Registrado: may 2007
Posts: 13
Poder: 0
Stevenmn Va por buen camino
^^ Los dos codes sirven, gracias, aunque aquí pongo este otro que era el que estaba utilizando que sirve también.
Cita:
ShellExecute(form1.Handle, 'open', PChar('cmd.exe'),
Pchar('/K ' + edit1.Text + ' >> c:\LOG.TXT'), Pchar('C:\'), SW_SHOW)
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
WinExcec Viet Varios 2 16-09-2003 15:29:52


La franja horaria es GMT +2. Ahora son las 19:26:08.


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