如何将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.终于贴完了!!
更多精彩
赞助商链接