unit inifuncs; interface uses sysutils,windows; type tinifile = class private function writepp(s : string;n : string) : integer; function readpp(s : string; d: string) : string; protected public path : string; inipath : string; section : string; function writeppstring(s: String;n : string) : integer; function writeppbool(s: String;n : boolean) : integer; function writeppinteger(s : String;n : integer) : integer; function readppstring(s : string;d : string) : string; function readppinteger(s : string; d : string) : integer; function readppbool(s : string; d : string) : boolean; published end; implementation function tinifile.writepp(s : string;n : string) : integer; begin result:=0; writeprivateprofilestring(pchar(section),pchar(s),pchar(n),pchar(inipath)); end; function tinifile.writeppstring(s : String;n : string) : integer; begin result:=writepp(s,n); end; function tinifile.writeppbool(s: string;n : boolean) : integer; begin result:=writepp(s,inttostr(integer(n))); end; function tinifile.writeppinteger(s: string;n : integer) : integer; begin result:=writepp(s,inttostr(n)); end; function tinifile.readpp(s : string;d : string) : string; var r : array[0..1024] of char; g : integer; begin g:=length(r); getprivateprofilestring(pchar(section),pchar(s),pchar(d),r,g,pchar(inipath)); result:=r; end; function tinifile.readppstring(s : string;d : string) : string; var r : string; begin r:=readpp(s,d); result:=r; end; function tinifile.readppinteger(s : string;d : string) : integer; var r : string; x : integer; z : integer; begin r:=readpp(s,d); val(r,x,z); result:=x; end; function tinifile.readppbool(s : string;d : string) : boolean; var r : string; x : integer; z : integer; begin r:=readpp(s,d); val(r,x,z); result:=boolean(x); end; end.