Richtige TMP-Dateien benützen

Erklärung
Diese Funktion liefert einen TMP-Namen, der für jedes beliebige Programm benützt werden kann. Allerdings sollte man, wenn das Programm geschlossen wird, diese TMP-Dateien wieder löschen, da sie sonst im TMP Verz. verbleiben.

Quelltext

function TMPName:string; var P1,P2:PChar; Begin p1 := StrAlloc(max_path+1); p2 := StrAlloc(max_path+1); //Temp Verz. ermitteln... GetTempPath(max_path,p2); //TMP-Datei im TMP Verz. erzeugen GetTempFilename(P2,'$',0,P1); //TMP-Name übergeben Result := P1; //"Müll" beseitigen strDispose(p1); strDispose(p2); end;