IP mit netsh sichern/wiederherstellen

[Klaus01]

Wer suchet der findet:

Hiermit geht es:

Delphi-Quellcode:

Procedure ExecuteShellCommand( const cmdline: String; hidden: Boolean );
Const
  flags : Array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
Var
  cmdbuffer: Array [0..MAX_PATH] of Char;
Begin
  GetEnvironmentVariable( 'COMSPEC', cmdBUffer, Sizeof(cmdBuffer));
  StrCat( cmdbuffer, ' /C ');
  StrPCopy( StrEnd(cmdbuffer), cmdline );
  WinExec( cmdbuffer, flags[hidden] );
End; 

ExecuteShellCommand('netsh.exe interface dump > C:\ip_config.txt',false);

Grüße
Klaus