procedure TForm1.ExploreSelectLocation1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
ShellExecute(handle,'open',PChar(String(vc1.Path)),'','',1);
except end;End;