{ Well, here goes...a directory viewer, sorry it has no box but the command that i used to create the box was from a Unit. Weel, the Program is very "raw" but i think it's enough to give you an idea... } Program ListBox; Uses Crt, Dos; Const S = ' '; Var List : Array[1..150] of String[12]; AttrList : Array[1..150] of String[15]; Pos, First : Integer; C : Char; Cont : Integer; DirInfo : SearchRec; NumFiles : Integer; begin TextBackground(Black); TextColor(LightGray); ClrScr; For Cont := 1 to 15 do begin List[Cont] := ''; AttrList[Cont] := ''; end; NumFiles := 0; FindFirst('C:\*.*', AnyFile, DirInfo); While DosError = 0 do begin Inc(NumFiles, 1); List[NumFiles] := Concat(DirInfo.Name, Copy(S, 1, 12 - Length(DirInfo.Name))); If (DirInfo.Attr = $10) Then AttrList[NumFiles] := '