ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Вопрос по GetFileOpenName
14 сообщений из 14, страница 1 из 1
Вопрос по GetFileOpenName
    #34081622
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Один из параметров этой функции указывает на initial directory name. А есть ли возможность указать Мой Компьютер?

Заранее благодарю,

С уважением,

Михаил.
...
Рейтинг: 0 / 0
25.10.2006, 19:53
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34081817
Фотография ИвановНН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИвановНН
Участник
Можно попробовать так:
при помощи winapi выяснить директорию рабочего стола
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
constant Long CSIDL_DESKTOPDIRECTORY =  16 
String ls_DesktopDirectory
ls_DesktopDirectory = Space(  255  )

Long ll_SHResult

ll_SHResult = SHGetFolderPath(  0 , CSIDL_DESKTOPDIRECTORY,  0 ,  0 , ls_DesktopDirectory )
if ( ll_SHResult <>  0  ) then
	//error
end if

String ls_FilePath, ls_FileName
GetFileOpenName( 'Select File', ls_FilePath, ls_FileName, "DOC", &
    + "Text Files (*.TXT),*.TXT,Doc Files (*.DOC),*.DOC," &
    + "All Files (*.*), *.*", ls_DesktopDirectory )
PS: в msdn см. CSIDL
...
Рейтинг: 0 / 0
25.10.2006, 21:49
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34081827
Фотография ИвановНН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИвановНН
Участник
Невнимательно причитал: тут не рабочий стол нужен...
тогда вместо CSIDL_DESKTOPDIRECTORY = 16 надо использовать CSIDL_DRIVES = 17. Только почему-то не работает у меня с этим параметром.
...
Рейтинг: 0 / 0
25.10.2006, 22:02
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34081828
Фотография ИвановНН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИвановНН
Участник
Да еще забыл надо External Function объявить:
Код: plaintext
1.
function Long SHGetFolderPath( Long hwndOwner, Int Folder, Long hToken,
Long dwFlags, ref String pszPath ) library 'shell32.dll' alias for 'SHGetFolderPathA'
...
Рейтинг: 0 / 0
25.10.2006, 22:03
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34081986
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
А можно просто и в лоб :-)
Код: plaintext
1.
2.
3.
String ls_FilePath, ls_FileName
GetFileOpenName( 'Select File', ls_FilePath, ls_FileName, "DOC", &
    + "Text Files (*.TXT),*.TXT,Doc Files (*.DOC),*.DOC," &
    + "All Files (*.*), *.*", "%USERPROFILE%\My Documents")
...
Рейтинг: 0 / 0
26.10.2006, 01:08
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34082367
Локшин Марк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Локшин Марк
Участник
ФилиппА можно просто и в лоб :-)
Ай-ай-ай. Не у всех мои документы называются My Documents :-)
Да и не то, собственно, хотели...
...
Рейтинг: 0 / 0
26.10.2006, 10:02
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34084260
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Похоже простым решением не отделаться.

В любом случае спасибо.

С уважением,

Михаил.
...
Рейтинг: 0 / 0
26.10.2006, 15:59
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34084385
zuzu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zuzu
Участник
юзай как показал ИвановНН
только с CSIDL_DESKTOPDIRECTORY = 5

на моем компе выдало:
C:\Documents and Settings\UF902320\Mis documentos

а если надо именно Мой Компьютер
то это помоему невозможно,
так как физически нет такого пути,
даже еxplorer не даст тебе туда чтолибо сохранить
...
Рейтинг: 0 / 0
26.10.2006, 16:28
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34084581
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Идея состояла в том, что бы при открытии диалога были видны все доступные диски. Может можно подойти к этой задаче с другой стороны?

С уважением,

Михаил.
...
Рейтинг: 0 / 0
26.10.2006, 17:08
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34084857
zuzu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zuzu
Участник
edmikecaИдея состояла в том, что бы при открытии диалога были видны все доступные диски. Может можно подойти к этой задаче с другой стороны?у нас это так:
первый раз открывается дефолтовый путь,
а последующие разы - последнии вабранный,
тоесть тот что юзался при выборе файла дла зап./чтения
юзерам нравится
...
Рейтинг: 0 / 0
26.10.2006, 18:07
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34085067
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
CSIDL_DRIVES (0x0011)
The virtual folder representing My Computer, containing everything on the local computer: storage devices, printers, and Control Panel. The folder may also contain mapped network drives.

SHGetFolderPath Function - If a virtual folder is specified, this function will fail.
Так что по большому счёту не выйдет...
...
Рейтинг: 0 / 0
26.10.2006, 19:11
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34085076
Фотография ИвановНН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИвановНН
Участник
Я, кстати, тоже про это читал, только думал, что кто-нибудь знает как можно по-другому выкрутится.
...
Рейтинг: 0 / 0
26.10.2006, 19:17
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34085194
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
Можно так
Филиппкак вызвать модное окно выбора файлов? (а-ля офис ХР?)
Тогда юзверь будет видеть иконку "Мой Комьютер" в Places Bar...
...
Рейтинг: 0 / 0
26.10.2006, 20:22
| Ответить | Цитировать | Написать  
Вопрос по GetFileOpenName
    #34085252
edmikeca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
edmikeca
Участник
Большое спасибо за идеи... иду чесать репу (т.е. думать как с этим жить) :)

С уважением,

Михаил.
...
Рейтинг: 0 / 0
26.10.2006, 21:08
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Вопрос по GetFileOpenName
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&fpage=66&tid=1337548]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 208ms
total:  371ms
созд. / загр.: 371ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]