Создание обычной оболочки типа Norton, Turbo Vision Опции

[-Nick Spirit-]

Вот возникла такая проблема с написанием проги. Вообщем требуется создать окно в котором бы с права выводились все директории на диске С:\ слева соответственно файлы. Короче выбираешь директорию прога входит в неё пишет там все папки и файлы. и всё. Я сделал окно вывел папки и файлы на С:\ но вот как осуществить тот самый выбор не знаю. Буду очень благодарен если кто поможет! Заранее спасибо!!! Если понадобится мой код скажите.

[DJ_Nick-Spirit]

МИСС_ГРАФФИТИ может хоть вы взглянете на мой код???очень нада............ сдавать уже сёдня... у меня неполучается выбор определённой директории и вывод всех файлов в ней. Мне вот исходник показали но я не знаю как его применить. Даже не знаю как его вообще запустить. Вот мой код

Program Manager;
{$X+}
Uses CRT,DOS,Objects,App,Views,Dialogs,Drivers,MsgBox,DirView;
Const dirattr : set of byte=[$10..$14];
Var
 NDir  : Array [1..100] of String;
 NFile : Array [1..100] of String;
 S     : SearchRec;
 L,G   : PStringCollection; {Collection of file names}
 Foc   : String; {Select File}
 Name  : String;
 Put   : String;
 KDirs : Integer;
 KFiles: Integer;
 j     : Integer;
 UNDir : Integer;
 sim   : Char;
Type
 TMyApp = object (TApplication)
  Procedure Run; Virtual;
  Procedure HandleEvent( var Event:TEvent); Virtual;

 end;
 PMyListBox = ^TMyListBox;
 TMyListBox = object (TListBox)
  Function Valid(Command:Word):boolean; Virtual;
 end;
{--------------------------------------------------------------}
Procedure TMyApp.Run;
Var
 R,RR,X,Y:TRect;
 W:PDialog;
 B,I:PScrollBar;
 P,M:PListBox;
 Fl:Boolean;
Begin
 KDirs:=1;
 KFiles:=1;
 put:='C:\';

 For j:=1 to 100 Do
  Begin
   NDir[j]:='';
   NFile[j]:='';
  End;
 L:=New (PStringCollection,Init(50,10));
 FindFirst(put+'*.*',directory,S);
 While DosError = 0 do with S,L^ do
   Begin
    If s.attr in dirattr Then
     Begin
      Insert(NewStr(Name));
      NDir[KDirs]:=Name;
      KDirs:=KDirs+1;
     End;
    FindNext(S);
   End;
G:=New (PStringCollection,Init(50,10));
FindFirst(put+'*.*',directory,S);
 While DosError = 0 do with S,G^ do
   Begin
    If (s.attr <> $10) and (s.attr <> $11) and (s.attr <> $12) and (s.attr <> $13) and (s.attr <> $14) Then
     Begin
      Insert(NewStr(Name));
      NFile[KFiles]:=Name;
      KFiles:=KFiles+1;
     End;
    FindNext(S);
   End;

R.Assign(1,1,77,44);
W:=New (PDialog,Init(R,'Directories                          Files in Directory'));
With W^ Do
 Begin
  RR.Assign(36,1,37,42);
  B:=New (PScrollBar,Init(RR));
  Insert(B);
  Y.Assign(75,1,76,42);
  I:=New (PScrollBar,Init(Y));
  Insert(I);
  R.Assign (1,1,36,42);
  P:=New (PMyListBox,Init (R,1,B));
  P^.NewList(L);
  Insert(P);
  X.Assign (37,1,75,42);
  M:=New (PMyListBox,Init (X,1,I));
  M^.NewList(G);
  Insert(M);
 End;
DeskTop^.Insert(W);
 UNDir:=1;
  {надо как то осуществить выбор диретории слева и если выбрана то показать все её файлы и новый список директорий}
Inherited Run;
End;
Procedure TMyApp.HandleEvent (Var Event: TEvent);
Begin
 Inherited HandleEvent(Event);
 case Event.What of EvKeyboard:
 case Event.KeyCode of
 kbUp: UNDir:=UNDir-1;
 kbDown: UNDir:=UNDir+1;
 end;
 end;
End;
Function TMyListBox.Valid;
Begin
Foc:=PString(L^.At(Focused))^;
Valid:=True;
end;
Var
 P: TMyApp;
Begin
 P.Init;
 P.Run;
 P.Done;
 write(Foc);
End.