Как можно извлечь все имена разделов Ini файла в юникоде?

[SkAndrew]

Добрый день!

Вот так можно извлекать имена идентификаторов в указанном разделе INI - файла в юниде:

procedure ReadSection(const FFileName, Section : WideString; Strings : TWideStrings);
    const BufSize = 16384 * SizeOf(WideChar);
      var Buffer, P: PWideChar;
begin
  // Windows NT/2000/XP and later
  GetMem(Buffer, BufSize);
  try
      Strings.BeginUpdate;
      try
          Strings.Clear;
          if GetPrivateProfileStringW(PWideChar(Section), nil, nil, Buffer, BufSize, PWideChar(FFileName)) <> 0 then
          begin
            P := Buffer;
            while P^ <> #0 do
            begin
              Strings.Add(P);
              Inc(P, LMDStrLen(P) + 1);
            end;
          end;
      finally
          Strings.EndUpdate;
      end;
  finally
      FreeMem(Buffer, BufSize);
  end;
end;

а как можно извлечь все имена разделов Ini файла в юникоде?

procedure ReadSection(const FFileName: WideString; Strings : TWideStrings);

где FFileName - полный путь к INI файлу.

Спасибо за любое решение и подсказку.

[Stilet]

А хелп что уже не в моде?

uses IniFiles;
procedure TForm1.FormActivate(Sender: TObject);

var
  AppIni: TIniFile;
begin
  AppIni := TIniFile.Create('WIN.INI');
  AppIni.ReadSections(ListBox1.Items);
  AppIni.ReadSection('Ports',Listbox2.Items);
  AppIni.ReadSectionValues('Ports',ListBox3.Items);
  AppIni.Free;
end;

[SkAndrew]

все в моде уважаемый Stilet только мне список нужен юникодный, ВЫ невнимательно прочитали мой вопрос. мне нужно считать из Ini файла имена секций в юникодный список WideStrings! Спасибо

[Stilet]

ВЫ невнимательно прочитали мой вопрос

Думаешь?
Вот тебе пример:

var e,s:string;
begin
i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'file1.ini');
 i.ReadSections(ListBox1.Items);
 e:=ListBox1.Items.Text;
 setlength(s,length(e));
 OemToAnsi(pchar(e),pchar(s));
 ListBox1.Items.Text:=s;
i.Free;
end;

Обычное чтение и обычный перевод из юникода в анси.

[SkAndrew]

хорошо, не буду спорить, но мне нужно сразу считать в юникодный список имена секций, как изменить приведенный в первом посте код, который я нашел в интернете, чтобы модернизировать его к моей задаче. Спасибо

Больше ни у кого никаких идей? Спасибо за любую идею.

[BOBAH13]

Ну в Delphi 2009 просто используем TMemIniFile и при создании указываем имя ини и TEncoding.Unicode (вроде так). Поидеи дальше как обычно ReadSections. Если другая IDE, то через api как выше.