Вызвать IPConfig программно

[Garacio_cain]

Собственно ситуация такая. Нужно узнать IP адрес машины в интернет. Это как известно делается командой IPConfig но вопрос в следующем. Как эту функцию вызвать программно? Т.е. пользователь работающий с программой не должен ничего делать, программа должна сама автоматически определить IP компьютера и отправить его на сервер. С отправкой на сервер проблем нет, но вот с IP проблема.

[JUDAS]

Зачем тебе вызывает IPConfig програмно ?
если работал с реестром пройдись по всем веткам
HKEY_LOCAL_MACHINE\SYSTEM\ControlSe tХХХ\Services\Tcpip\Parameters\Inte rfaces и считай себе все IP адреса которые в текущий момент активны !
Вот и все проблемы!
А в форме (или где оно там) дай УЗЕРУ право выбрать IP. Ведь на компе может быть 2,3 и более сетевых плат+модем !

[DOLBY]

Вот работа с консольной прогой Ping:

procedure Ping(IP: String; OutMemo:TMemo);
const BUFSIZE = 2000;
var SecAttr: TSecurityAttributes;
    hReadPipe, hWritePipe: THandle;
    StartupInfo: TStartUpInfo;
    ProcessInfo: TProcessInformation;
    Buffer: Pchar;
    WaitReason,BytesRead: DWord;
begin
 with SecAttr do
  begin
   nlength:= SizeOf(TSecurityAttributes);
   binherithandle:= true;
   lpsecuritydescriptor:= nil;
  end;
 if Createpipe(hReadPipe, hWritePipe, @SecAttr, 0) then
  begin
   Buffer:= AllocMem(BUFSIZE + 1);
   FillChar(StartupInfo, Sizeof(StartupInfo), #0);
   StartupInfo.cb:= SizeOf(StartupInfo);
   StartupInfo.hStdOutput:= hWritePipe;
   StartupInfo.hStdInput:= hReadPipe;
   StartupInfo.dwFlags:= STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow:= SW_HIDE;
   if CreateProcess(nil, PChar('ping.exe -n 10 -w 1000 '+IP), @SecAttr, @SecAttr, true, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
    begin
     repeat
      WaitReason:= WaitForSingleObject( ProcessInfo.hProcess,100);
      Application.ProcessMessages;
     until(WaitReason <> WAIT_TIMEOUT);
     repeat
      BytesRead := 0;
      ReadFile(hReadPipe, Buffer[0], BUFSIZE, BytesRead, nil);
      Buffer[BytesRead]:= #0;
      OemToAnsi(Buffer,Buffer);
      OutMemo.Text := OutMemo.text + String(buffer);
     until(BytesRead < BUFSIZE);
    end;
   FreeMem(Buffer);
   CloseHandle(ProcessInfo.hProcess);
   CloseHandle(ProcessInfo.hThread);
   CloseHandle(hReadPipe);
   CloseHandle(hWritePipe);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 Ping(Edit1.Text,Memo1);
end;

end.

Несложно будет переделать и под IpConfig

[Garacio_cain]

DOLBY, JUDAS Спасибо большое!