ssnpublic.pas

含此文档只表示此压缩包来自于DELPHI盒子网站 ------------------------------------------------------------------------

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   ssnPublic.pas
//  Creator     :   Shen Min
//  Date        :   2002-4-2
//  Comment     :
//
//
////////////////////////////////////////////////////////////////////////////////

unit ssnPublic;

interface

uses SysUtils, Forms;

const
    SSN_MAX_WORKSPACE   = 128;

    SSN_ENTER_CHAR      = #13 + #10;


    function GetExePath() : String;

implementation

var
    Path_ExePath : String = '';

function GetExePath() : String;
begin
    if Path_ExePath = '' then
    begin
        Path_ExePath := ExtractFilePath(Application.ExeName);
        if Path_ExePath[Length(Path_ExePath)] <> '\' then
            Path_ExePath := Path_ExePath + '\';
        Result := Path_ExePath
    end
    else
        Result := Path_ExePath;
end;

end.