Ver Mensaje Individual
  #1  
Antiguo 17-04-2008
calogero calogero is offline
Miembro
 
Registrado: oct 2006
Ubicación: Los Mochis, Sinaloa, México
Posts: 76
Reputación: 18
calogero Va por buen camino
Hacer ping con ShellExecute

Nota:
Solo tienes que introducir la IP, en la caja de texto
y presionar Enter.

..dejen sus comentarios, gracias :')



Código Delphi [-]
type
  TForm1 = class(TForm)
    eDirIP: TEdit;
    Label1: TLabel;
    btnPing: TButton;
    procedure btnPingClick(Sender: TObject);
    procedure eDirIPKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnPingClick(Sender: TObject);
var
  Archivo: TextFile;
begin
  // creamos el archivo .bat
  AssignFile(Archivo, 'c:\ping.bat');
  {$i-} Rewrite(Archivo); {$i+} // lo sobreescribimos
  if LongBool(IOResult) then
  begin
   ShowMessage('Error al guardar.');
   Exit;
  end;

  // instrucciones para el archivo bat
  WriteLn(Archivo, '@echo off');
  WriteLn(Archivo, 'ping ' + eDirIP.Text);
  WriteLn(Archivo, 'pause');
  CloseFile(Archivo);

  // ejecutamos el bat
  ShellExecute(Form1.Handle, nil, 'c:\ping.bat',
  nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.eDirIPKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_RETURN) then
    btnPing.Click;
end;

end.

Espero les sirva...
Responder Con Cita