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

最新推荐文章于 2014-07-01 11:47:32 发布

原创最新推荐文章于 2014-07-01 11:47:32 发布 · 802 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #interface

博客提及了Jedi Common Support Unit，但未提供更多信息技术相关关键信息。

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.



终于贴完了！！