使用API的一个注意之处

我们知道，很多情况下，Windows API函数都需要一个缓冲区，例如以获取临时目录的API GetTempPath为例，这个函数需要一个Buffer用来存放返回的目录名称，而很多人代码(包括许多高手和Borland的专家)是这样写的：

function GetTempDirectory: String;

var

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

begin

 GetTempPath(255, @TempDir);

 Result := StrPas(TempDir);

end;

很明显，如果临时目录的名称超过256，那么就会发生缓冲区溢出，得到的数据也不完全，实际上，临时目录全路径很可能超过256，Windows的长文件名是指这个目录或者文件的名字的限制，不是Full path/name的限制！那么象这种函数该怎么来使用呢？

一般地，需要缓冲区的函数，我们需要调用两次！第一次调用是为了获得缓冲区的长度，然后第二次才是真正的调用，以上面的为例，真正正确的写法应该是：

function GetTempDirectory : string ;

var

 Len : integer ;

begin

 Len := GetTempPath ( 0 , nil );

 SetLength ( Result , Len + 1 );

 GetTempPath ( Len ,@ Result [ 1 ]);

end ;

其他类似的函数如GetComputerName等等，都应该如此使用。