Temporäre Dateinamen ermitteln

[sakura]

Windows bietet eine Funktion, mit der man sich einen temporären Dateinamen zurückgeben lassen kann. Anschließend kann man mit der Datei wie mit jeder anderen arbeiten. Für das Löschen ist der Programmierer zuständig, nicht Windows!

Die Funktion übernimmt zwei Parameter. Das Verzeichnis, in welchem die Datei gebraucht wird und eine ID von 3 Zeichen Länge, mit welcher der Dateiname beginnen soll. Die ID kann auch kürzer sein, ist sie länger, werden die restlichen Zeichen ignoriert.

Delphi-Quellcode:

function GetTempFileName(Folder, ID: AnsiString): AnsiString;
var
  NewTemp: array[0..MAX_PATH] of AnsiChar;
begin
  FillChar(NewTemp, SizeOf(NewTemp), #0);
  if AnsiLastChar(Folder)^ <> '\' then
    Folder := Folder + '\';
  GetTempFileName(PChar(Folder), PChar(Copy(ID, 1, 3)), 0, @NewTemp);
  Result := NewTemp;
end;

......