本文整理自网络,侵删。
{***************************************************************** 过程名称: GetTempDirectory* 功能描述: 取系统临时路径* 参数说明: 无* 返 回 值: string 路径* 历史记录: 2013.1.28 created by xzj*****************************************************************}function GetTempDirectory: string; var TempDir: array[0..255] of Char;begin GetTempPath(255, @TempDir); Result := StrPas(TempDir); end;
相关阅读 >>
Delphi 创建win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示
更多相关阅读请进入《Delphi》频道 >>