Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#1

Temporäre Dateinamen ermitteln

  Alt 5. Jul 2003, 12:27
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;
......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat