TRegistry.ReadWideString Marke Eigenbau

[halinchen]

Hi!

Leider besitzt die Klasse TRegistry kein Function wie ich WideStrings aus der Registry auslesen kann. (Delphi 2007)

Ich dachte, da guck ich mal, vielleicht schaffe ich das selber.

So sieht das jetzt aus:

Delphi-Quellcode:

function TMyRegistry.ReadWideString(const Name: Widestring): Widestring;
var
  Len: Integer;
  RegData: TRegDataType;
begin
  Len := GetDataSize(Name);
  if Len > 0 then
  begin
    SetString(Result, nil, Len);
    GetData(Name, PWideChar(Result), Len, RegData);
    if (RegData = rdString) or (RegData = rdExpandString) then
      SetLength(Result, StrLen(pWideChar(Result))
    else raise Exception.Create('MYREG'); //Wird später noch anders
  end
  else Result := '';
end;

end.

Er kennt die in der Zeile "SetLength(Result, StrLen(pWideChar(Result));" das StrLen nicht. Es will einen pAnsiChar als Argument.

Leider weiß ich nicht so genau was das alles macht...
Am Anfang setzt es doch die Länge des Strings auf die Länge der Binärgröße des Wertes.
Dann ruft es GetData auf, welches die Binärdaten in den String schreibt. und dann guckt es ob es ein String war, der in der Registry stand. Ja und das SetLength weiß ich nicht.

Wobei GetDataSize auch nur einen String als Argument nimmt. Der Schlüssel und Wert könnten ja auch im Unicodeformat geschrieben werden. (Irgendwie gefällt mir Unicode nicht...)

Über Hilfe würde ich mich freuen.