crear administrador de archivo

[ecfisa]

Hola mjjj.

Realmente no está muy claro cuál es el problema, pero por esto que dices:

pero con la condición que el usuario entre a un path específico y a sus subcarpetas..

Supongo que deseas que solo pueda moverse por la carpeta especificada y sus subcarpetas.

Si interpreté bién, se me ocurre que podrías hacer:

Código Delphi [-]
const
  DIR_ALLOWED = 'C:\DELL'; // Directorio permitido (ejemplo) 

procedure TForm1.FormCreate(Sender: TObject);
begin
   DirectoryListBox1.Directory:= DIR_ALLOWED;
end;

// ...

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  if Copy(UpperCase(DirectoryListBox1.Directory), 1, Length(DIR_ALLOWED)) <> DIR_ALLOWED then
  begin
    DirectoryListBox1.Directory := DIR_ALLOWED;
    DirectoryListBox1.OpenCurrent;
  end;
end;

Saludos.