[FaraMen]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
AFile: TStrings;
  WinDir: PChar;
  cmdPath: string;
  _si: STARTUPINFO;
  _pi: PROCESS_INFORMATION;
begin

  GetMem(WinDir, MAX_PATH);
  try
    GetWindowsDirectory(WinDir, MAX_PATH);
    cmdPath := StrPas(WinDir) + '\system32\cmd.exe';
    FillChar(_si, SizeOf(_si), 0);
    _si.cb := SizeOf(_si);
    _si.dwFlags := STARTF_USESHOWWINDOW;
    _si.wShowWindow := SW_HIDE;
    CreateProcess(nil, PChar(cmdPath + ' /c "ipconfig -all  > ipreport.txt"'),
                  nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil,
                  PChar(ExtractFileDir(Application.ExeName)), _si, _pi);
    WaitForSingleObject(_pi.hProcess, INFINITE);
    CloseHandle(_pi.hProcess);
    CloseHandle(_pi.hThread);
    if not FileExists('ipreport.txt') then Exit;
    AFile := TStringList.Create;
AFile.LoadFromFile('ipreport.txt');
Memo1.Lines.Add(AFile.Strings [30]);
Memo1.Lines.Add(AFile.Strings [32]);
Memo1.Lines.Add(AFile.Strings [34]);
Memo1.Lines.Add(AFile.Strings [36]);
Memo1.Lines.Add(AFile.Strings [38]);
Memo1.Lines.Add(AFile.Strings [42]);
    DeleteFile('ipreport.txt');
  finally
    FreeMem(WinDir, MAX_PATH);
  end;
end;

Admin: Не забываем про теги!