如何将C/C++程序转译成Delphi(十五)

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.