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. 终于贴完了！！
本文地址：http://com.8s8s.com/it/it5966.htm