var
  TempPath:PansiChar;
  FilePath:string;
  
GetMem(TempPath,100);
  try
    GetTempPathA(100,TempPath);
    FilePath:=TempPath;
  finally
    FreeMem(TempPath,100);
  end;

解决方案 »

  1.   

    得到当前windows用户的temp目录
    我的是
    C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\
    也就是
    C:\Documents and Settings\Administrator\Local Settings\Temp
      

  2.   

    var
      TempPath:PansiChar;   //定义PansiChar类型变量
      FilePath:string;      //定义string类型变量
      
    GetMem(TempPath,100);  //给PansiChar变量分配内存
      try                           
        GetTempPathA(100,TempPath);  //执行函数,返回temp目录到变量TempPath中
        FilePath:=TempPath;          //将TempPath的目录值赋给一个string
      finally
        FreeMem(TempPath,100); //释放内存
      end;