How to translate the CC ++ program into Delphi (fifteen)

8. The Jedi Common Support Unit

Unit jediutil;

{================================================================================================================================================================================================================ ==========}

{JEDI Common Support Unit}

{================================================================================================================================================================================================================ ==========}

Interface

Uses Wintypes,

WinProcs;

{------------------------------------- ---------}

{Function JedicheckInstanceHandle}

{}

{Parameter:}

{}

{hinst: instance handle}

{}

{Returns-value:}

{True If the Handle Is Valid, False IF NOT}

{------------------------------------- ---------}

Function JedicheckInstanceHandle (HINST: THANDLE): Boolean

IMPLEMENTATION

Function JedicheckInstanceHandle (HINST: THANDLE): Boolean

Begin

{$ IFNDEF WIN32}

Result: = hinst> hinstance_error;

{$ Else}

Result: = hinst <> 0;

{$ ENDIF}

END;

End.

I finally passed it! !