home *** CD-ROM | disk | FTP | other *** search
-
- PullDir.PAS SOURCE code
-
- Version: 1.2 - December 12, 1987
-
- A User-Supported Programming Tool
-
- Written By: Keith I. Smith
-
-
- (C) Copyright 1987, KISware, All Rights Reserved
-
-
-
-
- GENERAL NOTES
-
- This version of PullDir.PAS is distributed as user-supported
- software. This means that it is the user of the program, you,
- who is solely responsible for the developer, us, being able to
- continue to develop useful software. It means that you can
- "test drive" this program and decide whether it is of value to
- you. As with all user-supported software, it is imperative
- that you help us to help you. If you have received this pro-
- gram from another user or from a bulletin board and find it
- useful, please send a $15 contribution to:
-
- KISware Products
- 216 Pond Ridge Road, East
- Columbia, SC 29223
-
- You are granted a limited license to use, copy and distribute
- the program and documentation as long as you do not:
-
- 1. Charge for any copy of the program or documentation.
- 2. Distribute the program in a modified form.
-
- Your cooperation is not only greatly appreciated but it ensures
- that more quality programs will be available to you at very low
- cost in the future.
-
- Thank you,
-
- Keith I. Smith
- KISware Products
-
-
-
- Programmer's Documentation
-
-
- The main routine in this module is GetDirectory. Its calling form is:
-
- FUNCTION GetDirectory(VAR Mask,Name: String): Word
-
- You simply need to call this function from within your own program in order
- to select a filename for operating. Pass the desired filemask and variable
- to hold the selected name to the program. The user may change the mask if
- desired and may also step thorough the disk directory if necessary to locate
- the desired file.
-
- Hooks have been provided to catch commands such as D>elete, C>opy or R>ename
- a file. It has been left up to you to provide these functions if desired. A
- later version will probably be uploaded that includes these functions
- internally.
-
- In your own program, you will obviously need to modify the file PullVar.PAS
- in order to display the desired help commands. A sample screen has been
- provided.
-
- The program TestPull.EXE is included for a demonstration. I have included
- the TPU files with this Archive as well.
-
-
-
- ------ Keith ------
- CompuServe # 70741,1351