DO declare
 
LOCAL cSource, cLink
cSource = "C:\aa.txt"
cLink = "C:\aa_hl.txt"
 
IF CreateHardLink(cLink, cSource, 0) = 0
    ? "CreateHardLink failed with error", GetLastError()
    RETURN
ELSE
    = ShellExecute(0, "print", cLink, "", "", 3)
    WAIT WINDOW "Press any key to delete the hard link..."
    = DeleteFile(cLink)
ENDIF
 
PROCEDURE declare
    DECLARE INTEGER CreateHardLink IN kernel32;
        STRING lpFileName, STRING lpExistingFileName,;
        INTEGER lpSecurityAttributes
 
    DECLARE INTEGER DeleteFile IN kernel32 STRING lpFileName
    DECLARE INTEGER GetLastError IN kernel32
 
    DECLARE INTEGER ShellExecute IN shell32;
        INTEGER hwnd, STRING lpOperation,;
        STRING lpFile, STRING lpParameters,;
        STRING lpDirectory, INTEGER nShowCmd