AnsiString FilePath;
FilePath = CurrentPathLeft + Name;
strcpy (PathChar, FilePath.c_str ());
ShellExecute (0, "open", PathChar, "", "", 1);
}
}
}
return CurrentPathLeft;
}
else// Якщо активна права панель
{
long int Row = Form1-> FileListRight-> Row;
AnsiString Name = Form1-> FileListRight-> Cells [ColName] [Row];
if (DirSel! = 0)// Якщо змінилася коренева директорія
{
switch (DirSel)
{
case 1:
if (RootDir.AnsiCompare (RootDirLeft) == 0)// Якщо при зміні кореневої дірректоріі
{// Користувач вибрав той же пристрій, що
CurrentPathRight = CurrentPathLeft;// в іншій панелі, то отображеется
Path = CurrentPathRight + Mask;// папка відкрита в тій панелі
strcpy (PathChar, Path.c_str ());
ViewDirectory (PathChar, RIGHT);
Form1-> LabelCurrentPathRight-> Caption = CurrentPathRight;
}
else
{
CurrentPathRight = RootDir + '';
Path = RootDir + Mask;
strcpy (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char
ViewDirectory (PathChar, Panel);
Form1-> LabelCurrentPathRight-> Caption = CurrentPathRight;
}
break;
case 2:
CurrentPathRight = RootDir + '';
Path = RootDir + Mask;
strcpy (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char
ViewDirectory (PathChar, Panel);
Form1-> LabelCurrentPathRight-> Caption = CurrentPathRight;
break;
}
}
else
{
if ((Form1-> FileListRight-> Cells [ColAttrib] [Row] == "Dir 0") | |// Якщо подвійний клік (Form1-> FileListRight-> Cells [ColAttrib] [Row] == "HideDir 0") | |// По директорії
(Form1-> FileListRight-> Cells [ColAttrib] [Row] == "HideSysDir 0"))
if (Name == ".. 0")// Перехід на один рівень вгору
{
int Pos, Len = CurrentPathRight.Length ();
for (int i = Len-2; i> = 3; i -)
{
if (CurrentPathRight [i] == '')
{
Pos = i;
break;
}
}
CurrentPathRight.Delete (Pos, (Len-Pos));
Path = CurrentPathRight + Mask;
strcpy (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char
ViewDirectory (PathChar, RIGHT);
Form1-> LabelCurrentPathRight-> Caption = CurrentPathRight;
}
else// Відкриття підкаталогу
{
CurrentPathRight + = Name;
Path = CurrentPathRight + Mask;
CurrentPathRight + = "";
strcpy (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char
ViewDirectory (PathChar, RIGHT);
Form1-> LabelCurrentPathRight-> Caption = CurrentPathRight;
}
else
{
if (Name! = " 0")// Якщо подвійний клік по файлу (не за папці)
{
...
