;Autor: ts-soft
;Ab Vista

; Hilfsfunktion zur Ausgabe der Fehlerbeschreibung
Procedure.s GetLastErrorStr(error = 0)
  Protected Buffer, result.s
 
  If Not error
    error = GetLastError_()
  EndIf
  If FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,error,0,@Buffer,0,0)
    result = PeekS(Buffer)
    LocalFree_(Buffer)
    ProcedureReturn result
  EndIf
EndProcedure
;

#SYMBOLIC_LINK_FLAG_DIRECTORY = 1 ; The link target is a directory

Prototype CreateSymbolicLink(lpSymlinkFileName.p-Unicode, lpTargetFileName.p-Unicode, dwFlags)

Global CreateSymbolicLink.CreateSymbolicLink

CreateSymbolicLink = GetFunction(OpenLibrary(#PB_Any, "kernel32.dll"),  "CreateSymbolicLinkW")

; beispiel
If Not CreateSymbolicLink(GetTemporaryDirectory() + "PureBasic_Dir", #PB_Compiler_Home, #SYMBOLIC_LINK_FLAG_DIRECTORY)
  Debug GetLastErrorStr()
Else
  RunProgram(GetTemporaryDirectory() + "PureBasic_Dir")
EndIf