Symbolleiste in der Taskbar

[freak4fun]

Ich hab glaub ich was gefunden. Aber ich weiß nicht wie ich das nun umwandeln kann.

Wenn ich das hier benutze kommen nur komische Zeichen in die Listbox.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const
  CKeyName: string = 'S-1-5-21-349972946-1519142490-3184093590-1000\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop';
  CValName: string = 'TaskbarWinXP';
var
  keyGood: boolean;
  p: integer;
  regKey: TRegistry;
  tmpStr: string;
  vSize: integer;
begin
  regKey := TRegistry.Create;
  try
    regKey.RootKey := HKEY_USERS;
    keyGood  := regKey.OpenKey(CKeyName, False);

    if (keyGood) then
    begin
      vSize := regKey.GetDataSize(CValName);

      if (vSize > 0) then
      begin
        SetLength(tmpStr, vSize);
        regKey.ReadBinaryData(CValName, tmpstr[1], vSize);

        repeat
          p := Pos(#0, tmpStr);

          if p <> 0 then
          begin
            Delete(tmpStr, p, 1);
            Insert(#13#10, tmpStr, p);
          end;
        until p = 0;

        (*StringReplace(tmpStr, #0, #13#10, [rfReplaceAll]); *)

        Memo1.Lines.Text := tmpStr;
      end;
    end;
  finally
    regKey.Free;
  end;
end;

Im Heyeditor lässt es sich einigermaßen lesen.