Ускорить GetOpenFileName, 5 секунд тупит, прежде чем окно показать Опции

[TarasBer]

  FillChar(OpenFN, SizeOf(OpenFN), 0);
  szFile := '';
  with OpenFN do begin
    HWNDOwner := MainForm;
    Flags := OFN_HIDEREADONLY or OFN_NOCHANGEDIR;
    lStructSize := SizeOf(OpenFN);
    lpstrFile := szFile;
    nMaxFile := sizeOf(szFile);
    case Save of
      0: lpstrTitle := ' Îòêðûòü...';
      1: lpstrTitle := ' Ñîõðàíèòü...';
      2: lpstrTitle := ' Ñîõðàíèòü êàê...';
    end;
    lpstrInitialDir := PChar(FolderPath);
    lpstrFilter := PChar('Ôàéëû *.' + Ext + #0'*.' + Ext + #0);
    lpstrDefExt := PChar(Ext);
  end;
  if Save = 0 then Result := GetOpenFileName(OpenFN)
              else Result := GetSaveFileName(OpenFN);

Может, нужен флаг, чтобы диалог, скажем, не лез в сеть?

[IUnknown]

А вот это вполне возможно. 1 гиг - это минимальные требования для Win7, может с этим тормоза и связаны...