function TForm1.get_prj_info(name_:String):TProject_;
var ini1:TINIFile;
begin
ini1 := TINiFile.Create(get_res_profile);
Result.path_ := ini1.ReadString(name_,'path','c:\');
Result.sdate_ := ini1.ReadDate(name_,'create',now);
Result.detail_ := ini1.ReadString(name_,'details','');
Result.comment_ := ini1.ReadString(name_,'comment','');
Result.owner_ := ini1.ReadString(name_,'owner','');
ini1.free;
End;