0

заношу в "фильтр" данные о расширениях, которые я хочу видеть в диалоге выбора файлов

const
  ext: array[0..10, 0..1] of shortstring = (
        ('TIFF Image', '*.tiff'),
        ('TIFF Image', '*.tif'),
        ('Metafiles', '*.wmf'),
        ('Enhanced Metafiles', '*.emf'),
        ('Icons', '*.ico'),
        ('PNG Image', '*.png'),
        ('GIF Images', '*.gif'),
        ('JPEG Images', '*.jpeg'),
        ('JPEG Images', '*.jpg'),
        ('Bitmaps', '*.bmp')
        );

var
  i: integer;

begin
  Label1.Caption := IntToStr(CardPanel1.CardCount);
  for i := Low(ext) to High(ext) do
    with FileOpenDialog1.FileTypes.Add do
      begin
        DisplayName := ext[i, 0];
        FileMask := ext[i, 1];
      end;

но в каталоге с файлами есть файлик *.URL и вот он видится постоянно какой бы я ни выбрал фильтр/расширение фильтр выбран совсем другой

как победить?

P.S. пожалуйста стандартный диалог (TOpenDialog) не предлагать

4
  • я думаю вы сами можете догадаться что нужно делать проверку после выбора файлов и желательно не по расширению а по префиксу начальных байтов файла.
    – vegat4
    19 окт 2022 в 17:19
  • это сделать не проблема, проблема в том что мне ненужно отображение данного типа файлов в показанном списке. у меня же там нет фильтра "."
    – woojin
    19 окт 2022 в 17:28
  • ссылки не открываются
    – woojin
    19 окт 2022 в 17:44
  • FileOpenDialog разименовывает ссылки, вы можете в этом убедиться положив в каталог файл tiff и ярлык на него, и добавить файл с другим расширением и ярлык на него, в диалоге будут показаны только файл tiff и ярлык на него, т.к. они оба ссылаются на разрешенный файл tiff. Второй ярлык показан не будет. Думаю с этим вы ничего не сделаете. В опциях есть свойство fdoNoDereferenceLinks - но оно влияет только на возвращаемое имя, если true - то вернет имя самого lnk файла иначе то имя, которые указано в ссылке
    – Tunker
    20 окт 2022 в 15:43

1 ответ 1

0

введите сюда описание изображения у меня все норм работает..............................

введите сюда описание изображения


procedure TForm2.FormCreate(Sender: TObject);
const
  ext: array[0..9, 0..1] of shortstring = (
        ('TIFF Image', '*.tiff'),
        ('TIFF Image', '*.tif'),
        ('Metafiles', '*.wmf'),
        ('Enhanced Metafiles', '*.emf'),
        ('Icons', '*.ico'),
        ('PNG Image', '*.png'),
        ('GIF Images', '*.gif'),
        ('JPEG Images', '*.jpeg'),
        ('JPEG Images', '*.jpg'),
        ('Bitmaps', '*.bmp'));

var
  i: integer;

begin

  for i := Low(ext) to High(ext) do
    with FileOpenDialog1.FileTypes.Add do
      begin
        DisplayName := ext[i, 0];
        FileMask := ext[i, 1];
      end;
   FileOpenDialog1.Execute
end;

6
  • тогда не понятно почему у меня такой беспредел твориться
    – woojin
    19 окт 2022 в 17:52
  • вот мой exe github.com/dvb01/exe
    – vegat4
    19 окт 2022 в 17:55
  • смотри что выдаёт твой EXE ibb.co/njJHxZ7 и у меня подобная же история с моим EXE (картинка в самом вопросе вставлена)
    – woojin
    19 окт 2022 в 18:02
  • мб с настройкой проводника у тя что то не то хкхкхк
    – vegat4
    19 окт 2022 в 18:04
  • если TOpenDialog хорошо работает а плохо работает TFileOpenDialog то я бы покопался в их разнице
    – vegat4
    19 окт 2022 в 18:10

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.