untsys.pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

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

unit UntSys;

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

uses
  Windows, Messages, SysUtils, Classes, ShellAPI;

{==========================================================================
　　　　　　　　　　　　　函数声明部分
==========================================================================}
//调用外部文件
procedure OpenURL(URL: PChar); stdcall;
//取得当前EXE路径
function GetExePath(): PChar; stdcall;

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

implementation

{==========================================================================
　过程名:    OpenURL
  功  能:    调用外部类型文件
  参  数:    URL : PChar　被调用文件路径
  作  者:    胡孟杰
  日  期:    2005.08.28
==========================================================================}

procedure OpenURL(URL: PChar); stdcall;
begin
  ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;

{==========================================================================
  函数名:    GetExePath
  功  能:    取得当前EXE路径
  参  数:
  返回值:    当前EXE路径
  作  者:    胡孟杰
  日  期:    2005.08.26
==========================================================================}

function GetExePath(): PChar; stdcall;
begin
  Result := PChar(ExtractFilePath(Paramstr(0)));
end;

end.