Delphi 读取配置文件INI

//读取配置文件INI

function ReadIniItem(const Section, Item,IniFileName,
DefaultValue: String): string;
var
Value:string;
begin
SetLength(Value,3001*sizeof(Char));
GetPrivateProfileString(PChar(Section),PChar(Item),
'',PChar(Value),3000,PChar(ExtractFilePath(Paramstr(0))+IniFileName));
SetLength(Value,StrLen(PChar(Value)));
if Trim(Value)<>'' then Result:=Value
else Result:=DefaultValue;
end;