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));