2011 年 1月 15 日随笔档案 - fyen

2011年1月15日

摘要： procedure WriteREG_MULTI_SZ(const Name, Value: string; const Registry: TRegistry);var p, buffer: PChar; i: Integer; Size: DWORD; aStrings: TStringList;begin Size := 0; aStrings := TStringList.C... 阅读全文

posted @ 2011-01-15 08:13 fyen 阅读(1101) 评论(0) 推荐(0) 编辑

注册表读取字节流

摘要： function ReadBinary(const Name: string; const Registry: TRegistry): TByteDynArray;var RDT: TRegDataType; Size: Integer;begin Size := Registry.GetDataSize(Name); SetLength(Result, Size); Registry... 阅读全文

posted @ 2011-01-15 08:11 fyen 阅读(300) 评论(0) 推荐(0) 编辑