procedure TForm1.oxGraphicButton7Click(Sender: TObject);
begin try
play_snd(1);
vr1.RootFolderCustomPath := get_prj_info(Label1.Caption).path_;
VirtualShellHistory.Clear;
oxGraphicButton5.Enabled := VirtualShellHistory.ItemIndex > 0;
oxGraphicButton9.Enabled := oxGraphicButton5.Enabled;
except end;End;