home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / SFGetFolder 6 ƒ / SFGetFolder_Test.p < prev    next >
Encoding:
Text File  |  1993-06-01  |  249 b   |  21 lines  |  [TEXT/PJMM]
  1. program SFGetFolder_Test;
  2.  
  3.     uses
  4.         SFGetFolder;
  5.  
  6.     var
  7.         where: Point;
  8.         dirID: Longint;
  9.         good: Boolean;
  10.  
  11. begin
  12.  
  13.     ShowText;
  14.     repeat
  15.         SetPt(where, 50, 50);
  16.         good := SFGetFolder(where, dirID);
  17.         if good then
  18.             WriteLn(dirID);
  19.     until not good;
  20.  
  21. end.