delphi GetTempDirectory 获取临时文件夹路径

本文整理自网络，侵删。

 
uses
  ShellApi, ShlObj,
  ComObj,
  ActiveX;

function GetTempDirectory: string;
var
  lpBuffer: array[0..MAX_PATH] of Char;
begin
  GetTempPath(MAX_PATH, @lpBuffer);
  Result := StrPas(lpBuffer);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetTempDirectory);
end;
 

相关阅读 >>

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 判断一个颜色是否是亮色

Delphi android 启动卡死处理方法

Delphi createmutex建立互斥对象，并且给互斥对象起一个唯一的名字

Delphi中dbgrid控件数据库点击某列按序排列

Delphi 显示简单图形

Delphi blockread和blockwrite读写文件

Delphi 判断进程名是否存在，如果存在则结束进程

Delphi 备份恢复剪切板

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetTempDirectory 获取临时文件夹路径