type
TForm1 = class(TForm)
eDirIP: TEdit;
Label1: TLabel;
btnPing: TButton;
procedure btnPingClick(Sender: TObject);
procedure eDirIPKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnPingClick(Sender: TObject);
var
Archivo: TextFile;
begin
AssignFile(Archivo, 'c:\ping.bat');
{$i-} Rewrite(Archivo); {$i+} if LongBool(IOResult) then
begin
ShowMessage('Error al guardar.');
Exit;
end;
WriteLn(Archivo, '@echo off');
WriteLn(Archivo, 'ping ' + eDirIP.Text);
WriteLn(Archivo, 'pause');
CloseFile(Archivo);
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.