uses shellapi;
procedure TForm1.Button1Click(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, 'ipconfig '); WriteLn(Archivo, 'pause');
CloseFile(Archivo);
ShellExecute(Form1.Handle, nil, 'c:\ping.bat',
nil, nil, SW_SHOWNORMAL);
end;
end.