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

8. The Jedi Common Support Unit

unit JediUtil;{==========================================================}{ Jedi Common Support Unit                                 }{==========================================================}interfaceUSES WinTypes,     WinPRocs;{----------------------------------------------------------}{ Function JediCheckInstanceHandle                         }{                                                          }{ Parameter:                                               }{                                                          }{   hInst: Instance Handle                                 }{                                                          }{ Returns-Value:                                           }{   TRUE if the handle is valid, FALSE if not              }{----------------------------------------------------------}Function JediCheckInstanceHandle (hInst: THandle): Boolean;implementationFunction JediCheckInstanceHandle (hInst: THandle): Boolean;begin  {$IFNDEF WIN32}  Result := hInst > HINSTANCE_ERROR;  {$ELSE}  Result := hInst <> 0;  {$ENDIF}end;end.终于贴完了！！