VPF::Помогите прочитать reg файл в RichEdit или ListBox

inndim

Дата 8.6.2008, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 8.6.2008
Где: Королёв

Репутация: нет
Всего: 1

Помогите Пожалуйста кто знает.
Я экспортировал из реестра в файл zum.reg ключ, но не могу занести строки из него в RichEdit, выдаёт пару символов и кучу пустых строк. Я так понимаю всё дело в кодировке, так как похоже что reg файл в Unicode, но как это добро перекодировать в понятный для RichEdit формат. Если можно, то напишите пример. Заранее спасибо. Я собственно пытался прочитать полученыый reg файл способом написанным ниже, но увы ничего не выходит.

Код


procedure TForm1.Button1Click(Sender: TObject);
Var
f: TextFile;
s: WideString;
Begin
AssignFile(F, 'zum.reg');
Reset(F);
While not Eof(F) Do
Begin
ReadLn(F, s); 
RichEdit1.Lines.Add(AnsiString(s));
End;
closefile(f); 
end;

Это сообщение отредактировал(а) Alexeis - 8.6.2008, 20:22

Rrader

Дата 8.6.2008, 07:48 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


procedure TForm1.Button1Click(Sender: TObject);
type
  SETTEXTEX = packed record
    flags: DWORD;
    codepage: UInt;
  end;
  TSetTextEx = SETTEXTEX;
const
  EM_SETTEXTEX = (WM_USER + 97);
  ST_DEFAULT = 0;
var
  S: WideString;
  F: TFileStream;
  St: TSetTextEx;
  Dest: String;
  StrLength: Longint;
begin
  F := TFileStream.Create('zum.reg', fmOpenRead or fmShareDenyNone);
  try
    SetLength(S, F.Size);
    F.Read(S[1], F.Size);
    St.codepage := CP_ACP;
    St.flags := ST_DEFAULT;
    StrLength := Length(S) div 2;
    SetLength(Dest, StrLength);
    WideCharToMultiByte(0, 0, PWideChar(S), StrLength, PChar(Dest),
      StrLength, NIL, NIL);
    Dest := Copy(Dest, 2, Length(Dest) - 1);
    SendMessage(RichEdit1.Handle, EM_SETTEXTEX, WPARAM(@St), LPARAM(Dest));
  finally
    F.Free;
  end;
end;

Это сообщение отредактировал(а) Rrader - 1.1.2009, 09:17

--------------------

Let's do this quickly!
Rest in peace, Vit!

inndim

Дата 8.6.2008, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 8.6.2008
Где: Королёв

Репутация: нет
Всего: 1

Rrader,
Огромное вам спасибо за помощь!!!! Всё работает, ура!!!

Akella

Дата 8.6.2008, 23:01 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Если экспортировать данные из реестра в формате Win9x, то экспортированные данные будут в виде обычного текста

Добавлено через 21 секунду
которые можно загрузить в TMemo

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »