Закрыть файл

[Kronos913]

Итак, при помощи openDialog находится файл

Однако диалог нужен не для действий конкретно с этим файлом, а для того чтобы получить ссылку на него. Ссылка получена, больше этот файл не нужен.

Чтобы было понятнее:
Адекватного способа открыть папку я не нашел - то я через диалог открываю файл, а потом из полученного имени отрезаю имя файла. И работа идет не с этим файлом, а с всей папкой

Но проблема в том, что пока я через диалог не открою другой файл, этот отображается открытым и невозможно сделать определенные действия. Например, переименовать папку

Вопрос: как "закрыть" файл открытый через диалог?

[ForenLi]

Выбирайте папку сразу, а не через...

if Win32MajorVersion >= 6 then
  with TFileOpenDialog.Create(nil) do
    try
      Title := 'Select Directory';
      Options := [fdoPickFolders, fdoPathMustExist, fdoForceFileSystem];
      OkButtonLabel := 'Select';
      DefaultFolder := FDir;
      FileName := FDir;
      if Execute then
        ShowMessage(FileName);
    finally
      Free;
    end
else
  if SelectDirectory('Select Directory', ExtractFileDrive(FDir), FDir,
             [sdNewUI, sdNewFolder]) then
    ShowMessage(FDir)