获取完整的系统临时文件路径

有临时文件可以放到这里，而不用自己维护

 

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;