function TForm1.get_wikires_prj_count():Integer;
var s1:TStringList; ini1:TINiFile;
begin
s1:=TStringList.Create;
ini1:=TINiFile.Create(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'Cache\Users\'+GetLocalUserName+'sresp.wrp');
ini1.ReadSections(s1);
ini1.free;
Result:=s1.Count;
End;