【温故Delphi】Win32API之GetTempFileName

 1   function GetTempFileA(const APrefix: string; const APath: string): string;
 2   var
 3     sPath: string;
 4     nErrCode: UINT;
 5   begin
 6     SetLength(Result, MAX_PATH);
 7     sPath := Trim(APath);
 8     if sPath = ‘‘ then
 9       sPath := GetCurrentDir;
10 
11     SetLastError(ERROR_SUCCESS);
12     if GetTempFileName(PChar(sPath), PChar(APrefix), 0, PChar(Result)) = 0 then
13     begin
14       Result := ‘‘;
15       raise Exception.Create(SysErrorMessage(GetLastError));
16     end
17     else
18       SetLength(Result, StrLen(PChar(Result)));
19   end;