untsysface.pas

来自「delphi制作的帮助学习软件」· PAS 代码 · 共 46 行

{*******************************************************}
{                                                       }
{       单元名称: UntSysFace                            }
{       创建日期: 2005-08-28                            }
{       摘要说明:                                       }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参    阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作    者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       当前版本: 1.0                                   }
{       版本历史:                                       }
{                                                       }
{*******************************************************}

Unit UntSysFace;

{==========================================================================
                        单元接口部分
==========================================================================}
interface

uses
  SysUtils, Classes;

{==========================================================================
                        函数声明部分
==========================================================================}
//打开外部文件
procedure OpenURL(URL : PChar); stdcall; external 'TSysCom.dll';
//取得当前EXE路径
function GetExePath() : PChar; stdcall; external 'TSysCom.dll';

{==========================================================================
                        单元、函数实现部分
==========================================================================}

implementation

end.