注册表转ini WriteBinaryData问题

Question

   有个程序是用注册表来放置一些配置信息.我现在想改成ini的.碰到了var     ModuleListSize: integer;
    ModuleList: pointer;
begin
reg.WriteBinaryData('Module List',ModuleList^,modulelistsize);
不知道转成ini如何写代码.请大家帮忙.很急啊.一百分送上.谢谢各位了

Answer 1

试试：
var
  f: TIniFile;
  ModuleListSize: Integer;
  ModuleList: pointer;
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  ms.WriteBuffer(ModuleList^, modulelistsize);
  ms.Position := 0;
  ...
  f.WriteBinaryStream('Module List', 'Module List', ms);