usyspublic.pas

来自「面向对象数据库开发时」· PAS 代码 · 共 24 行

unit USysPublic;

interface
uses SysUtils, Forms, IniFiles;

var
  IniFile: TIniFile;
  BlankCount: integer;
  
//取得Exe文件路径
function GetExePath: string;

implementation

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


end.