home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tjock / tot / demo / demdr5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  439 b   |  24 lines
  1. program DemoDirFive;
  2. {demdr5 - the directory dialog box}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totDir, totIO1;
  6.  
  7. Var
  8.    DirWin: DirWinObj;
  9.    Result: tAction;
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with DirWin do
  13.    begin
  14.       Init;
  15.       Result := Go;
  16.       if Result = Finished then
  17.          writeln('You chose file: ',GetChosenFile)
  18.       else
  19.          writeln('You escaped!');
  20.       Done;
  21.    end;
  22. end.
  23.  
  24.