Получение имени временного файла в виндах |
// 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 |