usyspublic.pas

面向对象数据库开发时

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.