Отправлено: 08.02.10 04:01. Заголовок: Как вызвать стандартное окно "Выбор директории" с показом файлов ?

Как вызвать стандартное окно "Выбор директории" с показом файлов определенного типа ?

На Дельфи нашел:
sDestFolder:="c:\MyLastSelectedFolder"
bSelFolder:=SelectDirectory('Select folder with *.FR3', '', sDestFolder);
результат в sDestFolder

А как на МиниГуи ?
GetFolder ( [<cTitle>],[<initial folder>] )--> cSelectedFolderName - имеет 2 параметра по справке....

 Отправлено: 08.02.10 05:54. Заголовок: вот пример выбора zi..

вот пример выбора zip-архива:

@ 10,20 TEXTBOX TextBox_nameArch WIDTH 520 VALUE archName HEIGHT 26 ;
ON CHANGE archName := Form_rest.TextBox_nameArch.Value
@ 10,540 BUTTON Button_21 WIDTH 26 HEIGHT 26 ;
PICTURE 'open16' ;
ACTION (archName := Getfile({{'zip', nazFile+'*.zip'}}, ;
'Выберите архив', Path_Arch, .F., .T.), ;
IF(!Empty(archName), Form_rest.TextBox_nameArch.Value := archName,))

 Отправлено: 08.02.10 06:41. Заголовок: alex_II пишет: Getf..

alex_II пишет:

цитата:

Getfile({{'zip', nazFile+'*.zip'}}, 'Выберите архив', Path_Arch, .F., .T.),

Это я знаю !!!
Мне нужно стандартное окно "Выбор директории" с маской файла !!!

Нашел в \MiniGUI\SOURCE\h_dialogs.prg функцию:
Function BrowseForFolder( nfolder, nflag ) // Contributed By Ryszard Rylko
Return C_BrowseForFolder( NIL, NIL, nflag, nfolder, NIL )

Я в Си не силен, что туда передавать не знаю. Кто подскажет ?

И еще нашел \MiniGUI\SAMPLES\Advanced\BrowseForFolder
Только другую функцию, не совсем подходящую:
Function BrowseForFolder( nfolder, nflag, cTitle, cInitPath, lCenter )
Return HB_BrowseForFolder( NIL, cTitle, nflag, nfolder, cInitPath, lCenter )

Только она показывает все файлы.... А мне нужно, только с одним расширением....