Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

				    在数据库应用程序设计中，经常需要获得一些重要的系统路径，如Windows系统的安装目录，SYSTEM目录的所在路径，当前的工作目录等。以下函数通过调用Windows API函数实现了这些功能。 
				
				DECLARE LONG GetSystemDirectory IN WIN32API ; 
				STRING @ lcSysDir, LONG 
				
				DECLARE LONG GetWindowsDirectory IN WIN32API ; 
				STRING @ lcWinDir, LONG 
				
				DECLARE LONG GetCurrentDirectory IN WIN32API ; 
				LONG, STRING @lcCurDir 
				
				LOCAL lcSysDir, lcWinDir, lcCurDir, lnStringLen 
				lcSysDir = SPACE(200) + CHR(0) 
				lcWinDir = SPACE(200) + CHR(0) 
				lcCurDir = SPACE(200) + CHR(0) 
				
				lnStringLen = GetSystemDirectory(@lcSysDir, 200) 
				lcSysDir = LEFT(lcSysDir,lnStringLen) 
				lnStringLen = GetWindowsDirectory(@lcWinDir, 200) 
				lcWinDir = LEFT(lcWinDir,lnStringLen) 
				lnStringLen = GetCurrentDirectory(200, @lcCurDir) 
				lcCurDir = LEFT(lcCurDir,lnStringLen) 
				
				? lcSysDir 
				? lcWinDir 
				? lcCurDir 
				
				　 
				
				作 者：蒋清野 
				
				通讯地址：清华大学23#421 （100084） 
				
				电子邮件：qyjohn@letterbox.com 
				
				版权所有，严禁转载。 
				　 
				
				
				--------------------------------------------------------------------------------
				
				返回索引页面