有临时文件可以放到这里,而不用自己维护
function GetLongPathName(lpszShortPath: PChar; lpszLongPath: PChar; cchBuffer: DWORD): DWORD; stdcall; external kernel32 name 'GetLongPathNameA';//调用kernel32.dll里的API函数
implementation
uses ucontactaddrfrm, uMainDM, uCommon, UfrmTZMsg;
{$R *.dfm}
function GetTempFULLPath: string;
var
Buffer: array[0..MAX_PATH - 1] of Char;
FileName: string ;
begin
GetTempPath(SizeOf(Buffer),@Buffer);//获取短型的路径
FileName:=Buffer;
SetString(Result, Buffer, GetLongPathName(PChar(FileName), Buffer, SizeOf(Buffer)));//获取完整路径
end;