* use system.HMOdule when available

git-svn-id: trunk@37302 -
This commit is contained in:
michael 2017-09-22 15:29:09 +00:00
parent f1055a32b9
commit 52fe038b53

View File

@ -28,8 +28,8 @@ type
TRect=Types.TRect; TRect=Types.TRect;
TSmallPoint=Types.TSmallPoint; TSmallPoint=Types.TSmallPoint;
{$ifndef windows} {$ifndef FPC_HAS_FEATURE_DYNLIBS}
HMODULE = ptrint; // hmodule is handle on windows. Pointer eq. HMODULE = ptrint;
{$else} {$else}
HModule = System.HModule; HModule = System.HModule;
{$endif} {$endif}