{*******************************************************}
{                                                       }
{       單元名稱: UntSys                                }
{       創(chuàng)建日期: 2005-08-28                            }
{       摘要說明:                                       }
{                                                       }
{       詳細(xì)說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項(xiàng):                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當(dāng)前版本: 1.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntSys;

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

uses
  Windows, Messages, SysUtils, Classes, ShellAPI;

{==========================================================================
　　　　　　　　　　　　　函數(shù)聲明部分
==========================================================================}
//調(diào)用外部文件
procedure OpenURL(URL: PChar); stdcall;
//取得當(dāng)前EXE路徑
function GetExePath(): PChar; stdcall;

{==========================================================================
  　　　　　　　　　　　　單元、函數(shù)實(shí)現(xiàn)部分
==========================================================================}

implementation

{==========================================================================
　過程名:    OpenURL
  功  能:    調(diào)用外部類型文件
  參  數(shù):    URL : PChar　被調(diào)用文件路徑
  作  者:    胡孟杰
  日  期:    2005.08.28
==========================================================================}

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

{==========================================================================
  函數(shù)名:    GetExePath
  功  能:    取得當(dāng)前EXE路徑
  參  數(shù):
  返回值:    當(dāng)前EXE路徑
  作  者:    胡孟杰
  日  期:    2005.08.26
==========================================================================}

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

end.