得到一个临时的文件名称

function GetExePath: string; begin   Result := ExtractFilePath(ParamStr(0));

end;

 

function GetTempFileName: string; var   vPath: string; begin   SetLength(Result, 255);   GetTempFileName(PChar(GetExePath), PChar('~'), 0, PChar(result));       vPath := GetExePath + 'temp\';   if not SysUtils.DirectoryExists(vPath) then     SysUtils.ForceDirectories(vPath);

  result := PChar(Result); //去掉多余的空字符

  Result := vPath + ExtractFileName(Result); end;