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.