Создание временного файла

Советы » Файлы » Создание временного файла

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:WINDOWSTEMP~61D5.TMP end

; { Note: The GetTempFile function just returns a unique filename but doesn't create the file. } { Bemerkung: Die GetTempFile Funktion liefert nur den Namen der temp. Datei aber erstellt sie nicht. }

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com