Windows.Pas

  function GetTempFileName（lpPathName，lpPrefixString：PWideChar; 
 uUnique：UINT; lpTempFileName：PWideChar）：UINT;标准

函数GetTempPath（nBufferLength：DWORD; lpBuffer：PWideChar）：DWORD;标准
 

SysUtils.Pas

  function ChangeFileExt（const FileName，Extension：string）：string; 
 

尝试这个

 code>函数TWinUtils.GetTempFile（Const扩展名：STRING）：STRING; 
 Var 
缓冲区：ARRAY [0 .. MAX_PATH] OF WideChar; 
开始
重复
 GetTempPath（Length（Buffer），Buffer）; 
 GetTempFileName（Buffer，'~~'，0，Buffer）; 
结果：= ChangeFileExt（Buffer，Extension）; 
直到不是FileExists（Result）; 
结束; 

或这个

 code>函数GetTempFile（Const Extension：String）：String; 
 Var 
缓冲区：String; 
开始
 SetLength（Buffer，MAX_PATH）; 
重复
 GetTempPath（MAX_PATH，PChar（缓冲区））; 
 GetTempFileName（PChar（缓冲区），'~~'，0，PChar（缓冲区））; 
结果：= ChangeFileExt（Buffer，Extension）; 
直到不是FileExists（Result）; 
结束; 

对于Delphi，Char和PChar类型分别是WideChar和PWideChar类型。

如果您使用将数据返回到char缓冲区中的任何Windows API，那么这些缓冲区需要重新声明为字节数组或AnsiChar数组。

如果您正在调用这些Windows API并在缓冲区中发送，那么当告诉API您的缓冲区多长时间时，如果使用了sizeof函数。那些调用需要更改为Length函数，因为Windows widechar API需要字符数，而不是字节数。

再见。

Hi I have been using this function in Delphi 2006, but now with D2010 it throws an error. I think it is related to the switch to Unicode.

  Function TWinUtils.GetTempFile(Const Extension: STRING): STRING;
  Var
     Buffer: ARRAY [0 .. MAX_PATH] OF char;
  Begin
    Repeat
      GetTempPath(SizeOf(Buffer) - 1, Buffer);
      GetTempFileName(Buffer, '~~', 0, Buffer);
      Result := ChangeFileExt(Buffer, Extension);
    Until not FileExists(Result);
  End;

What should I do to make it work?

EDIT

I get an 'access violation' when the ChangeFileExt is called

Windows.Pas

function GetTempFileName(lpPathName, lpPrefixString: PWideChar;
  uUnique: UINT; lpTempFileName: PWideChar): UINT; stdcall;

function GetTempPath(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall;

SysUtils.Pas

function ChangeFileExt(const FileName, Extension: string): string;

Try this

  Function TWinUtils.GetTempFile(Const Extension: STRING): STRING;
  Var
     Buffer: ARRAY [0 .. MAX_PATH] OF WideChar;
  Begin
    Repeat
      GetTempPath(Length(Buffer), Buffer);
      GetTempFileName(Buffer, '~~', 0, Buffer);
      Result := ChangeFileExt(Buffer, Extension);
    Until not FileExists(Result);
  End;

or this

  Function GetTempFile(Const Extension: String): String;
  Var
     Buffer: String;
  Begin
      SetLength(Buffer,MAX_PATH);
    Repeat
      GetTempPath( MAX_PATH, PChar( Buffer) );
      GetTempFileName(PChar( Buffer), '~~', 0, PChar( Buffer));
      Result := ChangeFileExt(Buffer, Extension);
    Until not FileExists(Result);
  End;

For Delphi, Char and PChar types are WideChar and PWideChar types, respectively.

If you use any Windows API’s that return data into char buffers , those buffers need to be redeclared as arrays of bytes or an array of AnsiChar.

If you are calling these Windows API’s and sending in buffers, if have been using the sizeof function when telling the API how long your buffer is. Those calls need to be changed to the Length function, as the Windows widechar API’s require the number of characters, not the number of bytes.

Bye.