EnableExplicit Define lpFileName$ Define lpExistingFileName$ If OpenLibrary(0, "Kernel32.dll") Prototype CreateHardLink(lpFileName, lpExistingFileName, lpSecurityAttributes) Define CreateHardLink.CreateHardLink = GetFunction(0, "CreateHardLinkA") CloseLibrary(0) EndIf lpFileName$ = "D:\Hardlink.png" lpExistingFileName$ = "D:\Originaldatei.png" If CreateHardLink(@lpFileName$, @lpExistingFileName$, 0) MessageRequester("", "Harter Link wurde erstellt.", 0) Else MessageRequester("", "Harter Link konnte nicht erstellt werden.", 0) EndIf