Проводник на делфи (переход по директориям)

[Stilet]

Тебе нужно что-то типа такого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public      path:string;
   Procedure q;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.q;
var s:TSearchRec;
begin
 ListBox1.Items.Clear;
 if FindFirst(path+'\*',faAnyFile,s)=0 then
 repeat
  ListBox1.Items.Add(s.Name);
 until FindNext(s)<>0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 path:='d:';
 q;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if ListBox1.Items[ListBox1.itemindex]='..' then
  path:=ExtractFilePath(path)
 else
  path:=path+'\'+ListBox1.Items[ListBox1.itemindex];
  q;
end;

end.