【温故Delphi】Win32API之GetTempFileName

所遇问题

　　新建的算量工程文件暂时保存到临时文件中，代码中调用了Win32 API——GetTempFileName

　　但在一台笔记本上，函数返回了一个空字符串！

　　为了查明原因想到了好用的GetLastError——返回错误信息。

　　结果错误信息为“拒绝访问”，这让我很快想到了传入文件夹用户权限问题。

　　经过检验，果然当前用户没有传入文件夹的写权限。

  function GetTempFileA(const APrefix: string; const APath: string): string;
  var
    sPath: string;
    nErrCode: UINT;
  begin
    SetLength(Result, MAX_PATH);
    sPath := Trim(APath);
    if sPath = '' then
      sPath := GetCurrentDir;

    SetLastError(ERROR_SUCCESS);
    if GetTempFileName(PChar(sPath), PChar(APrefix), 0, PChar(Result)) = 0 then
    begin
      Result := '';
      raise Exception.Create(SysErrorMessage(GetLastError));
    end
    else
      SetLength(Result, StrLen(PChar(Result)));
  end;

API说明

　　

反思

　　茁壮的程序代码一定要有好的容错方法，一定要将错误信息发布出去。

　　不怕出错，就怕不知道错在哪！