如何将c/c++程序转译成delphi(十五)_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.终于贴完了！！