{ SafeLoadLibrary calls LoadLibrary, disabling normal Win32 error message
 popup dialogs if the requested file can't be loaded.  SafeLoadLibrary also
 preserves the current FPU control word (precision, exception masks) across
 the LoadLibrary call (in case the DLL you're loading hammers the FPU control
 word in its initialization, as many MS DLLs do)}

program Test;

uses Windows, KOL, err;

var LibHandle: THandle;

begin
 // The following file cannot be registered - Windows XP
 LibHandle := SafeLoadLibrary('c:\windows\system32\shell.dll');
 FreeLibrary(LibHandle);
end.

---------------------------
Test.exe - Bad Image
---------------------------
The application or DLL c:\windows\system32\shell.dll is not a valid Windows image. Please check this against your installation diskette.
---------------------------
OK  
---------------------------

LibHandle := SafeLoadLibrary('c:\windows\system32\shell.dll',SEM_FAILCRITICALERRORS or SEM_NOOPENFILEERRORBOX);