Erweiterte Version für AND51:
Code: Alles auswählen
Procedure.s GetLongPathName(File.s)
DLL = OpenLibrary(#PB_Any, "Kernel32.dll")
If DLL
CallFunction(DLL,"GetLongPathNameA", @File, @File, #MAX_PATH)
CloseLibrary(DLL)
ProcedureReturn File
EndIf
EndProcedure
Procedure.s GetTempPath()
A$ = Space(1024)
GetTempPath_(1024,@A$)
ProcedureReturn A$
EndProcedure
MessageRequester("INFO","Temp: "+GetLongPathName(GetTempPath()),0)
Oder per %TEMP%
Code: Alles auswählen
Procedure.s GetEnv(szVariable.s)
Protected Length.l, Buffer.s
Length = GetEnvironmentVariable_(@szVariable, @Buffer, 0)
If Length
Buffer = Space(Length)
GetEnvironmentVariable_(@szVariable, @Buffer, Length)
ProcedureReturn Buffer
EndIf
ProcedureReturn ""
EndProcedure
MessageRequester("Environment", GetEnv("TEMP"))
was ich aber nicht für so empfehlenswert halte