procedure TForm1.tr1Change(Sender: TObject; Node: TTreeNode);
begin try
if Node.ImageIndex = 9 then begin
   tr1.PopupMenu := res_prj_menu1;
   Label1.Caption := Node.Text;
   Label1.Refresh; 
   Label2.Caption := Node.Text;
   Label3.Caption := get_prj_info(Node.Text).detail_;
   Label5.Caption := DateTimeToStr(get_prj_info(Node.Text).sdate_);
   vr1.RootFolderCustomPath := get_prj_info(Node.Text).path_;
   VirtualShellHistory.Clear;
   oxGraphicButton5.Enabled := VirtualShellHistory.ItemIndex > 0;
   oxGraphicButton9.Enabled := oxGraphicButton5.Enabled;
end else
   tr1.PopupMenu := nil;
except end;End;