Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как открыть папку ? / 4 сообщений из 4, страница 1 из 1
11.09.2007, 16:07
    #34791779
Alex Sheff
Alex Sheff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть папку ?
Чего-то никак немогу сообразить, как сделать чтобы при нажатии на кнопочку запускался проводник с нужной папочкой (путь генерится в фоксе)


Insert Into - это не оператор а команда...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2007, 16:10
    #34791803
Vladimir M Sklyar
Vladimir M Sklyar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть папку ?
GETDIR() ??
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2007, 16:13
    #34791819
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть папку ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
func Execute
lpara tcFile, tcPath, tcParameters, tnType
DECLARE integer ShellExecuteA in SHELL32.DLL integer hWnd, string lpOperation, string lpFile, string lpParam, string lpDirectory, integer nShowCmd
if vartype(tcParameters)!='C'
	tcParameters=''
endif
if vartype(tcPath)!='C'
	tcPath=sys( 5 )+sys( 2003 )
endif
if vartype(tnType)!='N'
	tnType= 3 
endif
ShellExecuteA( 0 , 'open', tcFile, tcParameters, tcPath, tnType)
return

Запускать Execute("C:\MyFolder")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2007, 16:35
    #34791942
Alex Sheff
Alex Sheff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть папку ?
Большое спасибо Dima T
вса работает отлично

Insert Into - это не оператор а команда...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как открыть папку ? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 379ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1588785]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 84ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 225ms
total:  379ms
x
x
Закрыть


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