Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.28;
Скачать: CL | DM;

Вниз

OpenDialog на WinAPI (не работает MULTISELECT)   Найти похожие ветки 

 
KocTeT   (2003-06-28 17:41) [0]

Не знаю в чём ошибка, может если кто знает, то поможет:

function GetOpenFileNameA(var OpenFile: TOpenFileName): Bool; stdcall; external "comdlg32.dll" name "GetOpenFileNameA";

procedure SelectFile;
const
Filter = "Any File (*.*)"#0"*.*"#0#0;
Title = "Open Dialog...";
var
OpenFile : TOpenFileName;
begin
FillChar(OpenFile, SizeOf(TOpenFileName), 0);

with OpenFile do
begin
lStructSize := SizeOf(TOpenFileName);
hInstance := Inst;
hWndOwner := hWnd;
lpstrFilter := Filter;
nFilterIndex := 2;
nMaxFile := SizeOf(FileName);
lpstrFile := FileName;
lpstrTitle := Title;
Flags := OFN_LONGNAMES or OFN_ALLOWMULTISELECT or OFN_EXPLORER or OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_HIDEREADONLY;

if GetOpenFileNameA(OpenFile) = true then
begin
messagebox(0,lpstrFile, "msg", 0);
end;
end;
end;


Запускается окно выбора файла, когда выбираешь один, то всё окей (в lpstrFile хранится имя файла), а когда несколько, то lpstrFile будет только каталог... Объясните что не так...


 
nikkie ©   (2003-06-28 18:28) [1]

читаем MSDN...
OFN_ALLOWMULTISELECT <...> For Explorer-style dialog boxes, the directory and file name strings are NULL separated, with an extra NULL character after the last file name. <...>



Страницы: 1 вся ветка

Текущий архив: 2003.08.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
3-92033
zzzrrv
2003-08-04 15:41
2003.08.28
Индекс для DBF-файла


6-92154
RichY
2003-06-19 14:25
2003.08.28
IP


3-91985
АлеКо
2003-07-31 04:10
2003.08.28
формат XML


6-92163
Fareader
2003-06-22 14:18
2003.08.28
TWebBrowser и картинки


8-92135
TankMan
2003-04-15 02:05
2003.08.28
Простенький проигрыватель....