AnsiString str = ExtractFileName(FileListBox1->FileName);
if (str.Length()>0 && str[1]=='[' && str[str.Length()]== ']')
{
str.Delete(1, 1);
str.Delete(str.Length(), 1);
FileListBox1->Directory = ExtractFilePath(FileListBox1
->FileName) + str;
}
else
ShellExecute(Handle, "Open", FileListBox1->FileName.
c_str(), "", "", SW_SHOWNORMAL);