>DECLARE INTEGER SHGetFolderPath ; > IN SHFOLDER.DLL ; > INTEGER hwndOwner, ; > INTEGER nFolder, ; > INTEGER hToken, ; > INTEGER dwFlags, ; > STRING @ pszPath >DECLARE INTEGER GetActiveWindow ; > IN WIN32API > >#DEFINE CSIDL_COMMON_DOCUMENTS 46 > >LOCAL ; > lcPath > >* *** windows system folder >lcPath = REPL(CHR(0),261) >=SHGetFolderPath(GetActiveWindow(), CSIDL_COMMON_DOCUMENTS, 0, 0, @lcPath) >?ADDBS(LEFT(lcPath,AT(CHR(0),lcPath)-1)) >>the 'shlfolder.h' i've put together myself (since i coulldn't find it anywhere). you can get some declare's in the msdn help under
Locating the Standard Folders Where Data Belongsand
Query the Registry for Directory Names