// Alternative für SelectDirectory

// Getestet mit RS 10.4 unter Win11

// uses ShlObj 

function SelectFolder(bei_Abbruch: String): String; 
var 
  b_i: TBrowseInfo; 
  Pc: PChar; 
  p_l: PItemIDList; 
begin 
  getMem(Pc, MAX_PATH); 
  ZeroMemory(@b_i, SizeOf(b_i)); 
  b_i.pszDisplayName := Pc; 
  b_i.lpszTitle := PChar('Wählen Sie einen Ordner'); 
  b_i.ulFlags := BIF_RETURNONLYFSDIRS and BIF_BROWSEFORCOMPUTER; 
  p_l := SHBrowseForFolder(b_i); 
  if Assigned(p_l) and SHGetPathFromIDList(p_l, Pc) then 
    result := Pc 
  else 
    result := bei_Abbruch; 
  FreeMem(Pc); 
end;

Zugriffe seit 6.9.2001 auf Delphi-Ecke