Цитата |
---|
AndrV пишет:
Подскажите как в Б4+ из плагина вызвать стандартный виндовый диалог выбора файла
(как например при выборе пункта "О программе" из основного меню) |
Вот пример:
PROCEDURE Info_Best()
LOCAL cFileMask,cDir,cName,cExt
LOCAL cExePath
LOCAL cPath:=hb_oemToAnsi("По_версиям.chm")
LOCAL aFilter:= {;
{hb_oemtoansi("Все файлы"),"*.*"},;
{"DOC (*.doc)","*.doc"},;
{"RTF (*.rtf)","*.rtf"};
WHILE .T.
cFileMask := GetOpenFileName(,@cPath, hb_oemToAnsi("Информация о программе"),aFilter, 1+4+8+256+4096+65536+1048576,"NEWS")
IF !EMPTY(cFileMask)
hb_FNameSplit( cFileMask, @cDir, @cName, @cExt )
RunShell(cName+cExt,,,cDir)
ELSE
EXIT
ENDIF
ENDDO
RETURN