Voila



# ----------------------------------
# Configuration du protocole IPv4
# ----------------------------------
pushd interface ipv4

reset
set global icmpredirects=enabled


popd
# Fin de la configuration du protocole IPv4

bon courage

cela ma plait je suis aussi en win 7
Merci

Bonjour,
Ping.DCU et ICMP.DCU cela vient d'ou ?
On peux avoir  les sources ?
Merci

Plusieurs fichiers à restaurer ça serait cool..

Merci

Bonjour,
Je suis très intéressé par votre appli ping_réseau
J' ai des soucis  pour compiler il me manque les composants suivants:
IdSMTPBase,HtmlHelpAPI
et peut être d' autres ?
Pourriez vous me les fournir
Merci
Bien à vous

Ou peut-on avoir le composant IAeverButton
Merci

bonjour,
Ou trouver Composants Tserversocket ?
Merci

Bonjour,
Pour les doublons moi je traite ce probleme  dans l'unite U_sudoku3.
A+

Bonjour

Dans l'unité (U_Sudoku1) il faut modifier les valeurs de couleur1 et couleur2 pour changer la couleur des cases

Extrait de l'unite U_SUDOKU1
.
.
procedure TForm1.FormCreate(Sender: TObject);
var
Col, Row : integer;
begin
Couleur1 := $00CEFFF9;
Couleur2 := $001EADFF;
SetLength(Cellule,StringGrid1.ColCount);
  For Col := 0 to High(Cellule) do SetLength(Cellule[Col],StringGrid1.RowCount);
  For Col := 0 to High(Cellule) do
      Begin
        For Row := 0 to High(Cellule[Col]) do Cellule[Col][Row] := False;
      end;
Form1.Height := 580;
Etc....
.
.


A+ Michel

Remplace Case

  If ZZ = '1' then ....
  If ZZ = '2' then ....
  If ZZ = '3' then ....
  If ZZ = '4' then ....
Par exemple