Voy pegado!!

[nicktdigo]

Buenas!!

Hace tiempo estuve trabajando con Delphi oop y bueno, me iba bien, pero ahora llevo como 5 años sin usarlo y no me acuerdo de nada!!

Estoy intentando crear una aplicación la cual tiene que ejecutar un comando de Windows.

Deseo que un botón recoja una variable en un TEDIT (que es un nombre que se le va a poner a un archivo) y que también tome el nombre de una ruta a seleccionar previamente.

El tema es que no me acuerdo de nada, y mucho menos, la manera de que me lance el comando de Windows.

Para empezar, estoy metiendo las variables como STRING. Al pulsar el botón deseo que si el EDIT donde está la primera variable está vacío, pues que salga un mensaje de error, pero el IF no me funciona. Lo estoy poniendo de varias maneras:
IF edit1.text:='' then
IF variable:='' then (la variable ya ha tomado antes el valor del edit)
No consigo que me deje trabajar el IF. En cualquier caso, ahora mismo estoy pegadísimo, no sé si me pueden refrescar la memoria!!

Muchas Gracias!!!

[nicktdigo]

Bueno, he solucionado el tema del IF.... pero sigo con muchas dudas...

Necesito crear un menú de navegación por mi disco duro y que la ruta que elija (archivo incluido) se me guarde en una variable. Creo que debería hacerlo así.

Necesito crear un comando de windows con sintaxis:

COMANDO [Atributo] variable1 binpath= "Ruta de archivo"

¿Voy por buen camino o estoy dando palos de ciego?

Gracias!!

[Casimiro Notevi]

Hola, nicktdigo, bienvenido a clubdelphi, te aconsejo que no te disperses con tantas preguntas en un mismo tema, será más fácil poder ayudarte. Además te aconsejo que leas nuestra guía de estilo, así tendrás las normas más claras. Muchas gracias.

[ecfisa]

Empezado por nicktdigo

Necesito crear un comando de windows con sintaxis:

COMANDO [Atributo] variable1 binpath= "Ruta de archivo"

Hola creo que para ese fín podes usar ShellExecute. Debes incluir la unit ShellAPI.

Sintáxis: ShellExecute(Manejador, Operación, NombreEjecutable, Parámetros, Carpeta, Mostrar);

Ejemplo:

  ShellExecute(Handle,  nil,  'telnet',  '192.168.1.1',  nil,  SW_NORMAL);

Saludos.

[ContraVeneno]

vamos por partes.

Si lo que quieres es poder buscar un archivo en tu disco duro (o tu equipo) y que este quede guardado en algún lado, lo que tendrías que hacer esutilizar un TOpenDialog:

Código Delphi [-]
with OpenDialog1 do begin
 if Execute then
  ShowMessage(Format('Ruta: %s, Archivo : %s', [ExtractFilePath(FileName), ExtractFileName(FileName)])) //tambien existe ExtractFileExt por si quieres la extensión
 else
  ShowMessage('Open file was cancelled');
end;

[nicktdigo]

ecfisa y Contraveneno, gracias por vuestras respuestas, pero perdonad mi torpeza. Ya digo que ahora mismo, y hasta que no coja ritmo lo voy a pasar mal.

Os pongo el caso algo más detallado (a ver si soy capaz):

La aplicación debe en un Edit tomar un nombre para un servicio (NOMBRESERVICIO) nuevo para Windows.

Debe poder dar la opción de elegir un archio en mi equipo (RUTA).

Hay otras opciones que quiero configurar, que son 3 radiobuttons que permita que el Sevicio tenga un tipo de inicio en windows Automático, Manual o Deshabilitado (pero esto lo configuraré más tarde).

El comando que debe ejecutar el botón es:

sc create NOMBRESERVICIO binpath= "RUTA"

En principio he configurado las dos variables (NOMBRESERVICIO y RUTA) como STRING [100].

El problema es que ahora debo meter en ese comando las dos variables y estoy tan pegado que no me acuerdo de nada... no tengo nada de soltura a la hora de idearme cómo debe funcionar la aplicación.

ecfisa ¿podrías ponerme el ejemplo con el comando que indico?

Muchas gracias por todo, y perdonad la torpeza nuevamente!!!

[ecfisa]

Hola nicktdigo.

No entiendo muy bién que es lo que queres hacer, pero voy a detallarte que hace ShellExecute
y seguramente lo puedas resolver.

ShellExecute(Manejador, Operación, NombreArchivo, Parámetros, Carpeta, Mostrar);

Manejador: Handle de la ventana (Form) que invoca la función.
Operación: Es un puntero a cadena (PChar) que almacena la operación a realizar:
open : Ejecuta o abre el archivo con el ejecutable que esté asociado.
explore : Explora el directorio.
find : Abre el cuadro de diálogo buscar.
edit : Edita el el archivo.
print : Imprime el archivo.
NombreArchivo: PChar que tiene la ruta y el nombre de archivo al que se le aplicará la Operación.
Parámetros : PChar que tiene los parámetros enviados a NombreArchivo.
Carpeta : PChar que tiene la ruta que NombreArchivo tendrá por defecto.
Mostrar : La forma en que se va abrir la aplicación, puede ser: (SW_HIDE, SW_RESTORE,SW_SHOW,
SW_SHOWNA, SW_SHOWNORMAL, SW_SHOWDEFAULT, SW_MAXIMIZE, SW_MINIMIZE, SW_SHOWMAXIMIZED,
SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE, SW_SHOWNOACTIVATE)

Ahora un ejemplo de uso con variables:

procedure TForm1.Button1Click(Sender: TObject);
var
  Operac, Nombre, Param, Path: string;
begin
  Operac:= 'open';
  Nombre:= 'Notepad.exe';
  Param := 'C:\WINDOWS\WIN.INI';
  Path  := 'C:\WINDOWS\'; // (en este caso podés omitir la ruta)
  ShellExecute(Handle, PChar(Operac), PChar(Nombre), 
                    PChar(Param), PChar(Path), SW_SHOWMAXIMIZED);
end;

Espero que te ayude.

Saludos.

[roman]

Empezado por nicktdigo

El problema es que ahora debo meter en ese comando las dos variables y estoy tan pegado que no me acuerdo de nada

Lo que tienes que hacer es concantenar al comando el valor de tus variables string. En delphi, la concatenación de strings se hace con el operador +:

Código Delphi [-]
var
  Comando: String;

begin
  Comando := 'sc create ' + Servicio + 'binpath= ' + QuotedStr(Ruta);

  ...
end;

// Saludos

[nicktdigo]

Muchas gracias por vuestras respuestas.
roman, tú respuesta la veo, la entiendo. Pero necesito ahora saber cómo ejecuto la variable "comando" como un comando de Windows (es decir, como el comando cmd por ejemplo).

Supongo que para esto es la respuesta de ecfisa, pero lo siento amigo, soy torpe hasta las 10 y no me hago con lo que me dices. Voy a ir haciendo pruebas a ver si le saco partido a vuestros consejos.

Muchas gracias a todos.

[nicktdigo]

Empezado por ecfisa

Hola creo que para ese fín podes usar ShellExecute. Debes incluir la unit ShellAPI.

Sintáxis: ShellExecute(Manejador, Operación, NombreEjecutable, Parámetros, Carpeta, Mostrar);

Ejemplo:

  ShellExecute(Handle,  nil,  'telnet',  '192.168.1.1',  nil,  SW_NORMAL);

Saludos.

Buenas, me podríais explicar como incluir la unit ShellAPi, bueno, como incluir cualquier unit...

Ya tengo casi todo hecho en la aplicación, me falta el tema de ejecutar el comando de Windows. Me podrías explicar esto un poco mejor? si te doy un ejemplo, me lo podrías escribir??

Muchas gracias.

[[Caral]]

Hola
Los UNIT se declaran bien en el uses del form donde estan todos, asi:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI;

O bien despues de la implementacion asi:

Código Delphi [-]
var
  Form1: TForm1;

implementation

Uses ShellAPI;

{$R *.dfm}

Es lo mismo.
Saludos

[mamcx]

Dos sitios web que recomiendo tanto a novatos como a los que no son pa' acordarse o descubrir cosas basicas:

http://www.delphibasics.co.uk/

http://delphi.about.com/

[nicktdigo]

Jarr... muchas gracias... si es que voy pegao..

[nicktdigo]

Buenas!!

A ver, he terminado de hacer todo, solamente me falta lo más importante!! Ejecturar el comando en Windows!!

He hecho todo el programa y en el botón de crear el servicio que he puesto he hecho que en un LABEL se escriba el comando completo. Se escribe completamente después de guardarlo en una variable (COMANDO). Ahora necesito saber como lanzo ese comando completo en Windows. Por lo que me comentasteis no entiendo como hacerlo.

¿Alguien me lo puede explicar algo más claro? Ya digo que estoy super torpe con todo esto.

Muchas gracias!!

[ecfisa]

Hola de nuevo nicktdigo.

Ahora estoy un poco confundido de como estás intentando utilizar el contenido de la variable "Comando".
Podrías ponerme un ejemplo literal de lo que te aparece en el Label y que querés que ejecute Windows ?


Saludos.

[nicktdigo]

Empezado por ecfisa

Hola de nuevo nicktdigo.

Ahora estoy un poco confundido de como estás intentando utilizar el contenido de la variable "Comando".
Podrías ponerme un ejemplo literal de lo que te aparece en el Label y que querés que ejecute Windows ?


Saludos.

Buenas ecfisa,

te copio un ejemplo de la variable comando que debe ejecutarse:

sc create Servicio1 binpath= "C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe" start= disabled

Servicio1 es el nombre que le he puesto al servicio, y lo que está entre comillas es la ruta de donde va a coger el .exe para crear dicho servicio. Start=disabled es el parámetro para que el servicio esté por defecto deshabilitado. Eso lo he puesto con 3 radiobuttons (Deshabilitado, Inicio automático e inicio manual)

Gracias!!

[ecfisa]

Nunca realizé una aplicación como servicio, pero supongo que podrías
ejecutar la línea de comando así:

var
  Comando: string;
begin
  Comando:= 'C:\Windows\System32\sc create Servicio1 binpath=' +
            '"C:\Documents and Settings\Intel\Escritorio'+
            '\Aplicacion como servicio\Project2.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL); 
//Habría que probar con SW_SHOWNOACTIVATE...
end;

Funcionó perfectamente con el siguiente valor en Comando:

var
  Comando: string;
begin
   Comando:= 'C:\Windows\System32\cmd.exe' +
                    ' /K CD C:\Documents and Settings';
   WinExcec(PChar(Comando), SW_NORMAL);
end;

Espero te ayude en algo.

Saludos.

[nicktdigo]

Empezado por ecfisa

Nunca realizé una aplicación como servicio, pero supongo que podrías
ejecutar la línea de comando así:

var
  Comando: string;
begin
  Comando:= 'C:\Windows\System32\sc create Servicio1 binpath=' +
            '"C:\Documents and Settings\Intel\Escritorio'+
            '\Aplicacion como servicio\Project2.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL); 
//Habría que probar con SW_SHOWNOACTIVATE...
end;

Funcionó perfectamente con el siguiente valor en Comando:

var
  Comando: string;
begin
   Comando:= 'C:\Windows\System32\cmd.exe' +
                    ' /K CD C:\Documents and Settings';
   WinExcec(PChar(Comando), SW_NORMAL);
end;

Espero te ayude en algo.

Saludos.

Buenas,

no entiendo cómo funciona. Es decir, yo en la variable COMANDO he guardado todo el comando entero con los parámetros y la ruta. Y lo que veo que pones es la ruta del CMD.exe (para que funcione en la consola supongo), pero lo siguiente no lo entiendo. Con eso, de donde toma la ruta y el nombre del servicio que le pongo?

Gracias

[ecfisa]

Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:

   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';

Es lo igual que :

 Comando:= 'C:\Windows\System32\cmd.exe /K CD C:\Documents and Settings';

Como te dije antes no he usado el comando "sc", desconozco si su
hubicación está declarada, por lo que especifique la ruta completa
al mismo: 'C:\windows\system32\', anteponiendolo al string de tu
ejemplo. Lo demás sigue igual.

  Comando:='C:\Windows\System32\sc create Servicio1 binpath=' +
           'C:\Documents and Settings\Intel\Escritorio'+
           '\Aplicacion como servicio\Project2.exe start= disabled';

Partí la cadena en tres partes, uniéndolas con "+" para una mayor
legibilidad, pero en realidad es una sóla:

   Comando:='C:\Windows\System32\sc create Servicio1 binpath= 'C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe start= disabled';

Es decir que el parámetro que debes enviar a WinExcec está todo en la
variable "Commando", pero su formato depende del manejo que de ella haga el ejecutable
invocado.

Espero haberte aclarado un poco.

Saludos.

[nicktdigo]

Empezado por ecfisa

Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:

   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';

Es lo igual que :

 Comando:= 'C:\Windows\System32\cmd.exe /K CD C:\Documents and Settings';

Como te dije antes no he usado el comando "sc", desconozco si su
hubicación está declarada, por lo que especifique la ruta completa
al mismo: 'C:\windows\system32\', anteponiendolo al string de tu
ejemplo. Lo demás sigue igual.

  Comando:='C:\Windows\System32\sc create Servicio1 binpath=' +
           'C:\Documents and Settings\Intel\Escritorio'+
           '\Aplicacion como servicio\Project2.exe start= disabled';

Partí la cadena en tres partes, uniéndolas con "+" para una mayor
legibilidad, pero en realidad es una sóla:

   Comando:='C:\Windows\System32\sc create Servicio1 binpath= 'C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe start= disabled';

Es decir que el parámetro que debes enviar a WinExcec está todo en la
variable "Commando", pero su formato depende del manejo que de ella haga el ejecutable
invocado.

Espero haberte aclarado un poco.

Saludos.

Un poco no, me sirve de mucho. Muchas gracias.

Te pongo un ejemplo de como he puesto para que se ejecute el comando:

"COMANDO:= '%SYSTEMROOT%\System32\sc create ' + NOMBRE + ' binpath= "' + (RUTA)+'" start= disabled';
Edit3.text:=COMANDO;
WinExec(PChar(COMANDO), SW_NORMAL);"

El tema es que al intentar ejecutar el programa desde el compilador me sale lo siguiente:
"[Error] Unit1.pas(61): Invalid typecast."

La linea a la que se refiere es a la del WinExec. ¿Sabes que significa el error?

Al principio del programa tengo declarada las uses:
"uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, ShellAPI;"

Gracias.