'______________________________________________________________
'
'  Add-On Routines for Clarion - 16 bit
'  Created by K.W. "Bill" Roe    broe@friend.ly.net
'  The following files are freely released into the public domain.
'  I hope they are of some use to you.
'
'	KWR16.TXT
'	KWR16.DLL
'	KWR16.LIB
'	KWR16.CLW
'	
'  Disclaimer
'  These files work fine for me, I'm not guaranteeing that they
'  will work for you.  If you use them, it is at your own risk!
'
'    USAGE
'    In each application that you intend to use any of these
'    functions, you must:
'       1) Include the following files in your application directory
'		KWR16.DLL
'		KWR16.LIB
'		KWR16.CLW
'	2) Insert the following source code in GLOBAL / EMBEDS
'	  	After Global Includes
'	   	  Include('KWR16.CLW','Equates')	
'	  	Inside Global Map
'	    	  Include('KWR16.CLW','Prototypes')
'	3) Add the following file under PROJECT / 
'	   Library, Object, and Resource Files
'           	KWR16.LIB
'
'  NOTE: All Parameters are defined as CSTRING or SHORT, and ALL Return
'	 values are SHORT (Except for Free_Space which returns a long).
'
'  File_Exists(FileName) - True (-1) if the file exists.
'	Example:
'		LOC:Filename = 'C:\Windows\Win.ini'	!LOC:Filename is CString(128)
'		If File_Exists(LOC:Filename) Then ....
'
'  Delete_File(FileName) - Deletes the specified file.
'	Example:
'		LOC:Filename = 'C:\Temp\*.*'		!LOC:Filename is CString(128)
'		Delete_File(LOC:Filename)
'
'  Create_Directory(DirectoryPath) - Creates the last directory
'	Example:
'		LOC:Filename = 'C:\TempDir'		!LOC:Filename is CString(128)
'		Create_Directory(LOC:Filename)
'
'  Delete_Directory(DirectoryPath) - Deletes the directory and all files
'	Example:
'		LOC:Filename = 'C:\Temp'		!LOC:Filename is CString(128)
'		If Delete_Directory(LOC:Filename) Then ....
'
'  Copy_File(Source,Target) - Copies a file (and renames it)
'	Example:
'		LOC:Source = 'C:\Windows\Win.ini'
'		LOC:Target = 'C:\Temp\Myini.ini'
'		Copy_File(LOC:Source,LOC:Target)	!Copies and renames at same time
'
'  Run_Wait(FileName,WStyle) - Runs a file and waits for it to terminate
'	0 = Hide
'	1 = Normal with focus
'	2 = Minimized with focus (default)
'	3 = Maximized with focus
'	4 = Normal without focus
'	6 = Minimized without focus
'
'  Run_NoWait(FileName,WStyle) - Runs a file async.
'	0 = Hide?
'	1 = Normal with focus
'	2 = Minimized with focus (default)
'	3 = Maximized with focus
'	4 = Normal without focus
'	6 = Minimized without focus
'	Example:
'		LOC:FileName = 'C:\BgndFile.exe'	!LOC:FileName is CString(128)
'		LOC:Style = 0				!LOC:Style is a Short
'		Run_NoWait(LOC:FileName,LOC:Style)
'		(Runs a "BgndFile.exe" in a hidden window - works for DOS files too
'		if Command.com set up to run in a window (not full screen))
'
'  Rename_File(OldName,NewName) - Renames (Moves) a file (Not across Disks)
'	Example:
'		LOC:OldName = 'C:\Temp\Myini.ini'
'		LOC:NewName = 'C:\Windows\Win.ini'
'		Rename_File(LOC:OldName,LOC:NewName)
'		(Deletes LOC:OldName and Copies/Renames it to LOC:NewName)
'
'  Free_Space(Drive) - Returns the amount of free space on a drive.
'	0 = Default Drive
'	1 = Drive A
'	2 = Drive B
'	ETC
'	Example:
'		LOC:Drive = 0				!LOC:Drive is a Short
'		Message('Free Space = ' & Free_Space(LOC:Drive))
'
'  Play_Wave(WaveFile) - Plays a wave (.WAV) file
'	Example:
'		LOC:Wave = 'C:\Windows\Ding.wav'	!LOC:Wave is CString(128)
'		Play_Wave(LOC:Wave)
'
'______________________________________________________________
