WEB开发网
开发学院软件开发Delphi 如何将C/C++程序转译成Delphi(十五) 阅读

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

 2006-02-04 13:31:40 来源:WEB开发网   
核心提示:8. The Jedi Common Support Unit unit JediUtil;{==}{ Jedi Common Support Unit }{==}interfaceUSES WinTypes, WinPRocs;{--}{ Fun

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.终于贴完了!!

Tags:如何 程序 译成

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接