Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿EditServer - Editar un ejecutable con otro? (https://www.clubdelphi.com/foros/showthread.php?t=55030)

JXJ 05-04-2008 22:01:16

¿EditServer - Editar un ejecutable con otro?
 
Tengo el problema de como modificar datos que son
variables y constantes que estan dentro de otro programa.

si conocen de los troyanos. o radmin.
saben que hay algunos que tienen un Editserver. o editor de servidores.

El funcionamiento que quiero duplicar es el siguiente

Ejecuto el editserver.
cambio los datos. a los que va a responder el servidor.
como son puerto, nombre, contraseña, email,

le doy click al boton guardar del editserver y este crea un
ejecutable servidor, en el directorio que yo decida.

Entonces,

¿Como guardo el ejecutable servidor dentro del Editserver?
¿Como extraigo el ejecutable servidor del Editserver?
¿Como modifico las variables del ejecutable servidor con el Editserver?

sale gracias opr su atención.

cHackAll 09-04-2008 00:57:04

Hay varias formas en que puedes hacer lo que necesitas, sin embargo te guío un poco con la más documentada en el Club;

Tienes un programa "main" que es el que configura al otro programa. main tiene un recurso que es programa ha ser configurado llamémoslo "child"

Segun las opciones que el usuario defina en main crea al archivo child.exe el cual tambien tiene un recurso. Los cambios se hacen en dicho recurso y child.exe es configurado.

Por su parte child.exe al iniciar lee su propio recurso y verifica los valores de configuracion (su recurso), y de acuerdo a los mismos hace lo que tiene que hacer.

Saludos

cmm07 09-04-2008 01:28:34

te dejo 2 unit que sirve para eso

utilizacion de ella es así:
este sería para el que lee las variables: (main)

Código Delphi [-]
uses SettingsDef.pas, UnitVariables.pas

var
Lee: pSettings;
begin
if ReadSettings(Lee) then begin
Configuracion.Server:= Lee.Server;
Configuracion.LD:= Lee.LD;
Edit1.Text:= Configuracion.Server;
end;

este sería para el que escribe las variables: (CHILD)


Código Delphi [-]
var
Graba: PSettings;
begin
New(Graba);
Graba.Server:=  Edit1.Text;
Graba.LD:= Edit2.Text;
if WriteSettings(PChar(aqui la ruta del archivo ejemplo C:\maco.exe), Graba) = True then begin
ShoWMessage('La configuración se ha grabado correctamente.'); Close; end else
ShoWMessage('La configuración no se ha podido grabar.');

cualquier duda me consultas ya que yo trabaje mucho con estas uses

JXJ 09-04-2008 04:58:59

[cHackAll]
cmm07

gracias. justo eso necesito,


La franja horaria es GMT +2. Ahora son las 03:16:34.

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