Mega Code Archive
How to Use GetTempFileName to Create a Unique Temporary File
<![CDATA[
Title: How to Use GetTempFileName to Create a Unique Temporary File
function GetTempFile(const Extension: string): string;
var
Buffer: array[0..MAX_PATH] of Char;
aFile: string;
begin
repeat
GetTempPath(SizeOf(Buffer) - 1, Buffer);
GetTempFileName(Buffer, '~', 0, Buffer);
Result := ChangeFileExt(Buffer, Extension);
until not FileExists(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetTempFile('.~tp'));
// The temp. file looks like C:\WINDOWS\TEMP\~61D5.TMP
end;
Note:
The GetTempFile function just returns a unique filename but
doesn??t create the file.
]]>