appinfounit.pas.svn-base

来自「农村信用社对日常凭证的管理功能」· SVN-BASE 代码 · 共 49 行

unit AppInfoUnit;

interface
uses
  IniFiles;
type
  TAppInfo=class
  private
  public
    class function getAppName():String;
    class function getAppTitle():String;
    class function getAppIconPath():String;
  end;

implementation
const
  configFilePath='config/config.ini';

{ TAppInfo }

class function TAppInfo.getAppIconPath: String;
var
    AppInfoIni:TIniFile;
begin
  AppInfoIni := TIniFile.Create(configFilePath);
  result:=AppInfoIni.ReadString('AppInfo','IconPath',''); 
  AppInfoIni.Free;
end;

class function TAppInfo.getAppName: String;   
var
    AppInfoIni:TIniFile;
begin   
  AppInfoIni := TIniFile.Create(configFilePath);
  result:=AppInfoIni.ReadString('AppInfo','AppName','凭证管理系统'); 
  AppInfoIni.Free;
end;

class function TAppInfo.getAppTitle: String;
var
    AppInfoIni:TIniFile;
begin              
  AppInfoIni := TIniFile.Create(configFilePath);
  result:=AppInfoIni.ReadString('AppInfo','AppTitle','凭证管理系统'); 
  AppInfoIni.Free;
end;

end.