Смена IP-адреса

{ Programmed Malomush Vladimir. Ukraine, Cherkassy vovs@neocm.com
 IP tools unit for set IP and Mask of network connection fo Win9X & NT Platforms
}
unit Iptools;

interface
uses Windows,Registry,SysUtils, Variants, Classes,Dialogs,ShellApi;
//-----------------------------------------------------
var
 Registry1: Tregistry;
 Keyslist:  Tstrings;
 P: Pointer;
//Declarations-----------------------------------------
Procedure Set_IP_AND_MASK98(IP,Mask: String);
Procedure Set_IP_AND_MASKXP(IP,Mask: String);
Procedure Set_IP_AND_MASK (IP,Mask: String);
function GetWinVersion: String;

implementation
function GetWinVersion: String;
var
   VersionInfo : TOSVersionInfo;
   OSName      : String;
begin
      VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

   if Windows.GetVersionEx( VersionInfo ) then
      begin
         with VersionInfo do
         begin
            case dwPlatformId of
               VER_PLATFORM_WIN32s        : OSName := 'Win32s';
               VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';
               VER_PLATFORM_WIN32_NT      : OSName := 'Windows NT';
            end; // case dwPlatformId
            // Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) +
            //           '.' + IntToStr( dwMinorVersion ) +
            //           #13#10' (Build ' + IntToStr( dwBuildNumber ) +
            //           ': ' + szCSDVersion + ')';
            Result:= OSName;
         end; // with VersionInfo
      end // if GetVersionEx
   else
      Result := '';
end;

//--------- Procedure for windowsXP -------------------
Procedure Set_IP_AND_MASKXP(IP,Mask: String);
 var
 i,NumDev: integer;
 p: Pchar;
 s: string;
begin
//Initialization----------------------------------------
s:='netsh interface ip set address "Подключение по локальной сети" '+
   'source=static addr='+IP+' mask='+Mask;
p:=pchar(s);
WinExec( @p[0], sw_show);
beep;
end;

//--------- Procedure for windows98 -------------------
Procedure Set_IP_AND_MASK98(IP,Mask: String);
 var
 i,NumDev: integer;
begin
  //Initialization----------------------------------------
  Keyslist:=TstringList.Create;
  Registry1:=TRegistry.Create;
  //Detect net devices------------------------------------
  Registry1.RootKey:= hkey_local_machine;
  Registry1.OpenKey('System\CurrentControlSet\Services\Class\Net',True);
  Registry1.GetKeyNames(Keyslist);
  Registry1.CloseKey;
  //Detect phisical net device-----------------------------
  For I:=0 to KeysList.Count-1 do
   Begin
    Registry1.OpenKey('System\CurrentControlSet\Services\Class\Net\'
                      +KeysList.Strings[i],True);
    If Registry1.ValueExists('IOBaseAddress')=True Then NumDev:=I;
    Registry1.CloseKey;
   End;
 //Open device  & set setings------------------------------
 Registry1.OpenKey('System\CurrentControlSet\Services\Class\NetTrans\'
                   +KeysList.Strings[NumDev],True);
 Registry1.WriteString('IPAddress',IP);
 Registry1.WriteString('IPMask',Mask);
 Registry1.CloseKey;
 //Deinitialization--------------------------------------
 Registry1.Free;
 Keyslist.Free;
 Beep;
 MessageDlg('Все изменения вступят в силу только после перезагрузки.',
             mtInformation, [mbOk], 0);
end;

Procedure Set_IP_AND_MASK (IP,Mask: String);
 var s: string;
begin
  S:=GetWinVersion;
  if S='Windows 95' Then Set_IP_AND_MASK98(IP,Mask);
  if S='Windows NT' Then Set_IP_AND_MASKXP(IP,Mask);
end;

end.