DBR Delphi-Ecke

// Bei MS-Office-XP verwendet man Öffnen-/Speichern-Dialoge, welche
// links bestimmte Ordner (z.B. "Eigene Dateien") anzeigen und das Modifizieren
// dieser Leiste erlauben, um beispielsweise weitere Ordner einzufügen.
// Hierzu müssen Registrierungsschlüssel angelegt werden, wie der folgende
// Code zeigt. Wichtig dabei ist, dass die Schlüssel in ununterbrochener
// Reihenfolge 'Places1', 'Places2', 'Places3' ... usw. heißen müssen.

// Getestet mit D4 unter WinME

uses Registry, FileCtrl; 
 
function dazu(Platz, Bezeichner, Pfad: string): boolean; 
var 
  Reg: TRegistry; 
begin 
  result := false; 
  if not directoryexists(pfad) then exit; 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
      if Reg.OpenKey('\Software\Microsoft\Office\10.0' +  // 11.0 für Office 2003
        '\Common\Open Find\Places\UserdefinedPlaces\' + Platz, true) 
        then begin 
        Reg.writestring('Name', Bezeichner); 
        Reg.writestring('Path', Pfad); 
      end; 
    result := true; 
  finally 
    Reg.CloseKey; 
    Reg.Free; 
  end; 
end; 
 
 
// Beispiel: 
// Es werden zwei Ordner in den Dialog aufgenommen 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not dazu('Places1', 'Pics', 'd:\bilder') then Showmessage('FEHLER'); 
  if not dazu('Places2', 'Root', 'c:\') then Showmessage('FEHLER'); 
end;