home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / nicol / sti_dir / sti_ddem.pas next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  1.0 KB  |  22 lines
  1. program STI_DDEM;                           { demo for directory unit       }
  2.  
  3. Uses
  4.    Crt,                                     { standard CRT Unit             }
  5.    STI_DIR,                                 { file selection unit           }
  6.    STI_SCRF;                                { screen function unit          }
  7.  
  8. Var
  9.   Selected_File : string;                   { the file selected             }
  10.  
  11. begin
  12.   Selected_File := STI_SelectFile(10,10,60,20,  { screen coordinates        }
  13.                                White,           { text color                }
  14.                                Yellow+Reverse,  { prompt color              }
  15.                                Green,           { border color              }
  16.                                White+Reverse,   { title color               }
  17.                                SINGLELINE,      { type of border            }
  18.                                '*.*');          { mask for selection        }
  19.   WriteLn('Selected File = ',Selected_File);    { write the selected file   }
  20. end.
  21.  
  22.