Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-06-2010
nicktdigo nicktdigo is offline
Miembro
 
Registrado: jun 2010
Posts: 16
Poder: 0
nicktdigo Va por buen camino
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!!!
Responder Con Cita
  #2  
Antiguo 11-06-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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:
Código:
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 11-06-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por nicktdigo Ver Mensaje
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
Responder Con Cita
  #4  
Antiguo 11-06-2010
nicktdigo nicktdigo is offline
Miembro
 
Registrado: jun 2010
Posts: 16
Poder: 0
nicktdigo Va por buen camino
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.
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
NMFTP.List se queda pegado quinqui Internet 1 21-12-2007 21:37:39
Forzar pegado Khronos Varios 1 20-10-2007 15:33:34
Evitar Pegado nemesio Varios 9 03-12-2005 03:53:41


La franja horaria es GMT +2. Ahora son las 00:28:59.


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