التحكم بعنوان Ip والمجموعة في الشبكة

السلام عليكم

اخي علي كيف الحال

هده تعليمه تقوم بتغيير الابي ويكنك تنفيدها بالدلفي عن طريق

{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx}
 function BuildDosCommandStr(Command:string):string;
 begin
	 result:='cmd /c "'+Command+'"';
 end;
 {xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx}
 function ExecuteCommande(Commande: String;Attente : Boolean = True): Boolean;
 Var
   lpsaProcess,
   lpsaThread	: PSecurityAttributes;
   StartupInfo   : TStartupInfo;
   ProcessInfo   : TProcessInformation;
   AddrCmd	   : Array [0..255] Of Char;
   ExitCode	  : DWord;
 begin
   FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
   with StartupInfo do
   begin
	 cb		  := SizeOf(TStartupInfo);
	 dwFlags	 := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
	 wShowWindow := SW_HIDE;
   end;

   New(lpsaProcess);
   New(lpsaThread);

   lpsaProcess^.nLength			  := SizeOf(lpsaProcess^);
   lpsaProcess^.lpSecurityDescriptor := Nil;
   lpsaProcess^.bInheritHandle	   := True;

   lpsaThread^.nLength			  := SizeOf(lpsaThread^);
   lpsaThread^.lpSecurityDescriptor := Nil;
   lpsaThread^.bInheritHandle	   := True;

   StrPCopy(AddrCmd, Commande);
   Result := CreateProcess(nil, AddrCmd, lpsaProcess, lpsaThread, False,
						   STARTF_FORCEONFEEDBACK, nil, nil, StartupInfo, ProcessInfo);
   if not Result then Result:=(GetLastError>10000);
   Dispose(lpsaProcess);
   Dispose(lpsaThread);
   if Result then
   begin
	 while Attente do
	 begin
	   // Solution d'attente 1
	   Sleep(500);
	   GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
	   if ExitCode<>STILL_ACTIVE then break;
	   // Solution d'attente 2
	   // WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
	 end;
	 CloseHandle(ProcessInfo.hThread);
	 CloseHandle(ProcessInfo.hProcess);
   end;
 end;
 {xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx}

ExecuteCommande(BuildDosCommandStr(netsh interface ip set adress name ="....." static ip الجديد masque passrelle métrique),TRUE);

الحمد لله انا بخير اخ عبد العالي اشتقت اليك اخي العزيز اتمنى ان تكون بخير

شكرا عن الاجابة وفيت وكفيت