摘要： 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... 阅读全文

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