发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 6.6 取得Windows的临时文件目录
发信站: 哈工大紫丁香 (2000年09月01日16:21:44 星期五), 站内信件

如何取得Windows的临时文件目录? 
适合版本:Delphi 3,2.0,1.0

Windows 95 & NT都指定了放置临时文件的目录，然而，用户能改变临时目录的位
置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows 95 & NT当前
的临时目录位置。这个Windows API函数 GetTempPath就是解决这个问题的。其函
数原形为:

DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer);

下面的例子示范如何使用：

function GetTempDirectory: String;

var

TempDir: array[0..255] of Char;

begin

GetTempPath(255, @TempDir);

Result := StrPas(TempDir);

end;


备注：临时目录的确定原则：

1,如果有TMP环境变量则临时目录为TMP指定的目录

2,如果没有TMP环境变量而有TEMP环境变量，则为TEMP变量指定的目录

3,如果TMP和TEMP都没有定义，则取当前目录为临时目录


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]