Symbolik Link erstellen (ab Vista)

[ts-soft]

Diese neuen symbolischen Links können nervig, aber auch nützlich sein. Die Erstellung benötigt
Administrative Rechte! Vielleicht kanns ja der eine oder andere gebrauchen, oder rsbasic packts in
seine Sammlung

weitere infos: http://msdn.microsoft.com/en-us/library/aa363866.aspx

Code: Alles auswählen

; 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

Gruß
Thomas

[RSBasic]

@ts-soft
Sehr schöner Code

oder rsbasic packts in seine Sammlung

Jap das werde ich (natürlich mit Namensnennung)

[ts-soft]

Jap das werde ich

Danke, weil hier wird es wohl früher oder später untergehen.

[Andesdaf]

Danke für den Code.