Получение названия сетевого интерфеса

[Человек_Борща]

Доброго времени суток!
Пакетными файлами пытаюсь выудить имя сетевого интерфейса.

Проблема в том, что без отладки файл %APPDATA%\ipconfig+u.txt есть и программа видит его, но загружает его пустым, при отладке тоже самое.

Сам же батник(тот который программа пишет и запускает), работает идеально, даже если его запускать от руки.


Собственно код:

function RunAndWait(const ExeName, ParamString: string; s_mode: Integer;
  QuoteParams: Boolean = true): Integer;
var
  ShellInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  ShellInfo.cbSize := SizeOf(ShellInfo);
  ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShellInfo.Wnd := HWND_DESKTOP;
  ShellInfo.lpVerb := 'open';
  ShellInfo.lpFile := PChar(ExeName);
  if QuoteParams then
    ShellInfo.lpParameters := PChar('"' + ParamString + '"')
  else
    ShellInfo.lpParameters := PChar(ParamString);
  ShellInfo.lpDirectory := PChar(ExtractFilePath(ExeName));
  ShellInfo.nShow := s_mode;
  // ShellInfo.nShow := SW_HIDE;
  if not ShellExecuteEx(@ShellInfo) then
    RaiseLastOSError;
  if ShellInfo.hProcess <> 0 then
    try
      WaitForSingleObjectEx(ShellInfo.hProcess, INFINITE, false);
      GetExitCodeProcess(ShellInfo.hProcess, ExitCode);
      Result := ExitCode;
    finally
      CloseHandle(ShellInfo.hProcess);
    end
  else
    Result := -1;
end;


function GetOVPNInterfaceName: string;
var
  ts: TStringList;
  AppData: string;
  sFile: string;
  sTmpFile: string;
  sTmpFileU: string;
begin
  AppData := IncludeTrailingPathDelimiter(GetEnvironmentVariable('APPDATA'));
  ts := TStringList.Create;
  try
    sFile := AppData + '$23423423423.bat';
    sTmpFile := 'IPInterf.txt';
    sTmpFileU := 'IPInterf_u.txt';
    // Create ipconfig /all
    ts.Add('@Echo off');
    ts.Add('ipconfig /all > ' + sTmpFile);
    ts.Add('cmd /u /c Type ' + sTmpFile + ' >> ' + sTmpFileU);
    ts.Add('del ' + sTmpFile);
    ts.Add('del %0');
    ts.SaveToFile(sFile);
    RunAndWait(sFile, '', SW_HIDE, false);
    // ShellExecute(0, 'Open', PChar(sFile), nil, PChar(AppData), SW_HIDE);
    // Sleep(10000);
    if FileExists(AppData + sTmpFileU) then
    begin
      {
        Файл существует и не пустой!
      }
      ts.Clear;
      ts.LoadFromFile(AppData + sTmpFileU);
     //Файл пуст
      DeleteFile(AppData + sTmpFileU);
      sFile := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +
        'gggg.txt';
      ts.SaveToFile(sFile);
    end;

  finally
    FreeAndNil(ts);
  end;
end;

Почему программа не может загрузить содержимое ipconfig_u.txt?


Проблема решена

ts.LoadFromFile(AppData + sTmpFileU, TEncoding.UTF8);