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的使用方法!