PureBoard

Verfasst: **31.12.2005 15:52**

Enumeration
  #LinkToKernel32Lib
EndEnumeration

source.s      = "iconinfo.bmp"
destination.s = "test02.BMP"

If OpenLibrary(#LinkToKernel32Lib, "KERNEL32.DLL")
  CHL = CallFunction(#LinkToKernel32Lib, "CreateHardLinkA", destination, source, 0)
  
  If CHL
    MessageRequester("Ergebnis", "CreateHardLinkA_ ausgeführt")
  Else
    MessageRequester("Ergebnis", "CreateHardLinkA_ NICHT ausgeführt - Quelldatei vorhanden ?")
  EndIf
  
EndIf

---------------------------
Ergebnis
---------------------------
CreateHardLinkA_ ausgeführt
---------------------------
OK
---------------------------

PureBoard

CreateHardLink_() is not a function, an array or a linked...