Hosted by uCoz
Получение имени временного файла в виндах
    
	// Local External Function
	FUNCTION ulong GetTempPathA (long nBufferLength, &
	   ref string lpBuffer  ) LIBRARY "KERNEL32.DLL"
	
	constant long  lcl_maxpath = 260
	string         ls_tempdir
	ulong          lul_retval
	
	//
	
	ls_tempdir = Fill('0', lcl_maxpath)
	
	lul_retval = THIS.GetTempPatha(lcl_maxpath, ls_tempdir)
	
	IF lul_retval > 0 THEN
	     ref_dir = ls_tempdir
	     RETURN SUCCESS
	END IF
	
	ref_dir = ''
	
	RETURN FAILURE