PROGRAM MAP MODULE('Win64Api') ClaRunExt_LoadLibrary(CONST *CSTRING pszModuleName), | UNSIGNED, PASCAL, NAME('LoadLibraryA') ClaRunExt_GetLastError(), ULONG, PASCAL, NAME('GetLastError') END END INCLUDE('ClaRunExt.INC'),ONCE ModuleName CSTRING('ClaRunExt.dll'),PRIVATE CODE h# = ClaRunExt_LoadLibrary (ModuleName) e# = ClaRunExt_GetLastError() IF h# = 0 MESSAGE('Get last error = ' & e# & | '|' & ModuleName & ' failed to load.', | 'Load Library: Win64Api', ICON:Exclamation) ELSE MESSAGE(ModuleName & ' loaded successfully.' & | '|Address handle = ' & FORMAT(h#, @n14) & | '|Get last error = ' & e#, | 'Load Library: Win64Api', ICON:Asterisk) END