delphi中使用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 pathname的限制！那么象这种函数该怎么来使用呢？
一般地，需要缓冲区的函数，我们需要调用两次！第一次调用是为了获得缓冲区的长度，然后第二次才是真正的调用，以上面的为例，真正正确的写法应该是：
procedure TForm1.Button1Click(Sender: TObject);
var
mybuf:array of char;
len:integer;
begin
len:=GetTempPath(0,nil);
setlength(mybuf,len);
GetTempPath(len+1,pchar(mybuf));
showmessage(pchar(mybuf));
end;
其他类似的函数如GetComputerName等等，都应该如此使用。 另此处也注意Pchar的使用方法!