netsh interface ip add dns 입니다. add로 찾아보시길..
원하시면 소스도 올려드리죠 -_-/

아래와 같이 DNS 삭제 -> Primary DNS - > 보조 DNS 식으로 작업을 했는데요. Primay 와 보조 DNS 잘 설정 되다가도 다시 해 보면 Primay DNS 만 설정이 되거나 혹은 DNS 정보가 모두 사라져 버리는 경우가 있습니다.
왜 이러는지 모르겠습니다. 좀 알려주시기 바랍니다.

- 아 래 -

sDns := 'netsh interface ip set dns "로컬 영역 연결" static none';
WINEXEC(Pchar(sDns),SW_HIDE);

sDns := 'netsh interface ip set dns "로컬 영역 연결" static 111.111.111.111';
WINEXEC(Pchar(sDns),SW_HIDE);

sDns := 'netsh interface ip add dns "로컬 영역 연결" 111.111.111.112';
WINEXEC(Pchar(sDns),SW_HIDE);

너무 빨리 다음행이 실행되어서 나타나는 현상입니다.

sDns := 'netsh interface ip set dns "로컬 영역 연결" static none';
WINEXEC(PChar(sDns),SW_HIDE);

이부분에서 기다리지 않고 다음행을 실행하여 그렇습니다.

sDns := 'netsh interface ip set dns "로컬 영역 연결" static 111.111.111.111';
WINEXEC(PChar(sDns),SW_HIDE);

이부분에서 기다리지 않고 다음행을 실행하여 그렇습니다.

sDns := 'netsh interface ip add dns "로컬 영역 연결" 111.111.111.112';
WINEXEC(PChar(sDns),SW_HIDE);

WINEXEC 이거 쓰지 마시고 아래의 RunDosCmd 를 쓰시면 됩니다.

if not RunDosCmd(Pchar(cmdns), Msg, true) then ShowMessage(msg);


function RunDosCmd(cmd: string; var Msg: string; bNT: boolean): boolean;
var
  pInfo : PROCESS_INFORMATION;
  sInfo : STARTUPINFO;
  exitCode: DWORD;
  s : string;
begin
  result := false;

  sInfo.cb := sizeof(STARTUPINFO);
  sInfo.lpReserved := nil;
  sInfo.lpReserved2 := nil;
  sInfo.cbReserved2 := 0;
  sInfo.lpDesktop := nil;
  sInfo.lpTitle := nil;
  sInfo.dwFlags := STARTF_USESHOWWINDOW + STARTF_USESTDHANDLES;
  sInfo.dwX := 0;
  sInfo.dwY := 0;
  sInfo.dwFillAttribute := 0;
  sInfo.wShowWindow := SW_HIDE;

  if not bNT then s := 'command.exe /c ' else s := 'cmd.exe /c ';
  if not CreateProcess(nil, PChar(s + cmd), //c:\MRX_NT\rmxnt.exe <c:\cmd.txt >c:\out.txt
      nil, nil, TRUE, 0, nil, 'c:\', sInfo, pInfo) then begin
    Msg := 'ERROR: Cannot launch child process';
    exit;
  end;

  // Give the process time to execute and finish
  WaitForSingleObject(pInfo.hProcess, INFINITE);

  if (GetExitCodeProcess(pInfo.hProcess, exitCode)) then
    case exitCode of
       STILL_ACTIVE: msg := 'Process is still active';
       else begin msg := 'OK'; result := true; end;
  end else
    msg := 'GetExitCodeProcess() failed';

end;

선택된 인터페이스의 ip를 변경하는 소스코드입니다.

http://peniar.com/devbeta/ipcsrc.exe
이를 받아서 한번 보시기 바랍니다.
만들다 말았지만 -_-; 원하시는 내용은 다 있을꺼에요..
(소스가 개판이라도 이해를 -_-;; 별거 없으니..ㅠ.ㅠ)

그럼 -_-/