Delphi World - Создание временного файла
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Создание временного файла

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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

 { 
  Bemerkung: 
  Die GetTempFile Funktion liefert nur den Namen der temp. 
  Datei aber erstellt sie nicht. 
}
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования