XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei  - einen sicheren temporären Dateinamen im Temp-Ordner erzeugen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Temporäre(n) Datei(namen) in temp. Verzeichnis erzeugen
Wenn der übergebene Integer-Parameter größer als Null ist,
wird lediglich ein temporärer Dateiname ermittelt.
Ohne Parameter oder bei Aufruf von GetTempFile 0 wird
die Datei auch gleich angelegt (aber nicht geöffnet!).
Übergeben werden kann ein beliebiger positiver(!) Integerwert.
Im Erfolgsfall gibt die Prozedur in $(0) den Dateinamen zurück,
im Fehlerfall einen Leerstring.
Def GetTempPath(2) !KERNEL32,GetTempPathA
Def GetTempFileName(4) !KERNEL32,GetTempFileNameA
Declare tmppath#,prefix#

Proc GetTempFile

    Parameters uint&
    Dim tmppath#,255
    Declare tempfile$,prefix$
    Let prefix$=TMP
    Dim prefix#,Add(Len(prefix$),1)
    String prefix#,0=prefix$

    If Gt(GetTempPath(255,tmppath#),0)

        If Gt(GetTempFileName(tmppath#,prefix#,uint&,tmppath#),0)

            Let tempfile$= String$(tmppath#,0)

        Else

            Let tempfile$=

        EndIf

    Else

        Let tempfile$=

    EndIf

    Dispose tmppath#
    Dispose prefix#
    Return tempfile$

EndProc

Beispiel
GetTempFile 1234
MessageBox($(0),Temporärer Dateiname,64)