Wykorzystaj systemowy program:
IPconfig.exe dla XP
i IPcfg.exe dla 98
//Łączenie z netem...
PROCEDURE Polacz;
var
sciezka :String;
Begin
if PlatformaWin32NT then
sciezka:='command.com /c '+KatWindows+'\System32\IPconfig.exe/renew' //XP
else sciezka:='command.com /c '+KatWindows+'\IPcfg.exe/renew_all'; //98
WinExec(PChar(sciezka),SW_Hide);
End;
//Rozłączenie z netem
PROCEDURE Rozlacz;
var
sciezka :String;
Begin
if PlatformaWin32NT then
sciezka:='command.com /c '+KatWindows+'\System32\IPconfig.exe/release' //XP
else sciezka:='command.com /c '+KatWindows+'\IPcfg.exe/release_all'; //98
WinExec(PChar(sciezka),SW_Hide);
End;
PlatformaWin32NT - nazwa procedury wykrywającej zainstalowany system
KatWindows - zmienna zawierająca ścieżkę do katalogu Windows
</delphi>