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

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. 
}

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

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!