{ 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.