Диалог OpenFile - Компьютерный форум OSzone.net

Sir Z
Если что,то я объясняю на основе WinAPI,а не VCL.

Цитата:

И даже удалось это побороть

...с помощью флага OFN_EXPLORER .
Итак,мы выставляем в структуре OPENFILENAME флаг OFN_ALLOWMULTISELECT.
При выборе нескольких файлов в принимающем буфере путь директории отделяется от файловой части нулевым байтом.В свою очередь названия файлов также разделяются между собою нулевыми байтами,и всё это дело,в конце концов,завершается двумя нулевыми байтами.
Если же был выбран только один файл,то принимающий буфер не содержит нулевого байта между директорией и файловой частью.
В структуре OPENFILENAME есть поле nFileOffset,которое является смещением относительно начала принимающего буфера до файловой части.Мы его будем использовать.
Теперь код:

Код:

var

 OpenDlgBox : TOpenFileName;

 s : String;

 cf : PChar;

 pathFile : array[0..4096] of Char = ' ';

begin

// типа заполняем структуру OPENFILENAME

 OpenDlgBox.lStructSize := SizeOf(OpenDlgBox);

 OpenDlgBox.hWndOwner := Handle;

 OpenDlgBox.lpstrFilter := 'Text Files'#0'*.txt'#0#0;

 OpenDlgBox.lpstrFile := pathFile;

 OpenDlgBox.nMaxFile := SizeOf(pathFile);

 OpenDlgBox.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or

         OFN_ALLOWMULTISELECT or OFN_EXPLORER;



if Length(OpenDlgBox.lpstrFile) < OpenDlgBox.nFileOffset then

{ Если выбрано несколько файлов,

   т.к. в данном случае функция Length читает длину строки до ближайшего нулевого байта,а у нас он будет стоять

   сразу за названием директории,и значение поля nFileOffset,которое характеризует байт начала

   файловой части,будет лежать после этого нулевого байта,т.е. значение поля nFileOffset будет больше длины,

   возвращаемой функцией Length в конкретном случае   }

begin

 cf := pathFile;

 inc(cf, OpenDlgBox.nFileOffset);

 s := 'Выбрано несколько файлов в директории: '+pathFile+#13#10;



repeat

 s := s+cf+#13#10;

 inc(cf, Length(cf) + 1);

until Length(cf) = 0; // а тут мы упрёмся во второй нулевой байт той пары,которая стоит в конце буфера



 end else

begin

 s := 'Выбран только один файл: '+pathFile;

end;

 SendMessage(hMemo, WM_SETTEXT, 0, lParam(s));