ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / API не работает.
12 сообщений из 12, страница 1 из 1
API не работает.
    #32813914
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
почему этот код под 2000-й идет, а под 98-й не идет (ошибок не выдает, но и архив не делает)

cArjFileDestination = ProgramPath + "\arj32.exe"

IF !FILE(cArjFileDestination)
= MESSAGEBOX("архиватора " + cArjFileDestination + "нету !", 0+64+0, "Ó Â À Ã À ! ! !")
ELSE

DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
INTEGER nWinHandle, ;
STRING cOperation, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDirectory, ;
INTEGER nShowWindow

* =ShellExecute(0,"","d:\arj32.exe","a MyArchive","",-1)

cArchiveName = ALLTRIM(STR(DAY(DATE()))) + "-" + ALLTRIM(STR(MONTH(DATE()))) + "-" + ALLTRIM(STR(YEAR(DATE())))

cWhatToArchivate = DataBasePath

=ShellExecute(0,"", cArjFileDestination,"a -e " + cArchiveName + " " + cWhatToArchivate + "*.*","",-1)

cResultArchive = ProgramPath + '\' + cArchiveName + '.arj'

WAIT WINDOW "" NOWAIT

* wait window cResultArchive nowait

IF FILE(cResultArchive)
= MESSAGEBOX("Архивирование " + cResultArchive + " завершено !", 0+64+0, "Ó Â À Ã À ! ! !")
ENDIF

ENDIF
...
Рейтинг: 0 / 0
06.12.2004, 11:00
| Ответить | Цитировать | Написать  
API не работает.
    #32814132
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
а откуда такая уверенность что функции вин32 апи для вин20000 должны обязательно работать под вин 98 ?????
...
Рейтинг: 0 / 0
06.12.2004, 12:10
| Ответить | Цитировать | Написать  
API не работает.
    #32814176
Дмитрий Маликов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Маликов
Гость
а что она возвращает в 98-ом?
по коду ошибки можно определить
...
Рейтинг: 0 / 0
06.12.2004, 12:28
| Ответить | Цитировать | Написать  
API не работает.
    #32814515
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
нету у меня такой уверенности...
а ошибки никакой.. вообще никакой
...
Рейтинг: 0 / 0
06.12.2004, 14:21
| Ответить | Цитировать | Написать  
API не работает.
    #32814528
Дмитрий Маликов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Маликов
Гость
не ошибки, а что возвращает эта функция, какой код?
...
Рейтинг: 0 / 0
06.12.2004, 14:26
| Ответить | Цитировать | Написать  
API не работает.
    #32814605
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
а чем run не подходит ???
...
Рейтинг: 0 / 0
06.12.2004, 14:57
| Ответить | Цитировать | Написать  
API не работает.
    #32815123
Chuveljov Andrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chuveljov Andrew
Участник
С равами пользователя всё нормально? Сам файл работает? Просто из коммандной строки?
___________________
Всё вышеизложенное есть моё частное мнение и не претендует на полноту изложения.
...
Рейтинг: 0 / 0
06.12.2004, 17:58
| Ответить | Цитировать | Написать  
API не работает.
    #32816564
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
права пользователя в 98-м? это шутка?
работает из командной строки но не работает под 98-м из указанного выше кода... ладно проехали...
...
Рейтинг: 0 / 0
07.12.2004, 14:17
| Ответить | Цитировать | Написать  
API не работает.
    #32817998
Chuveljov Andrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chuveljov Andrew
Участник
Пардон не понял, что не работает в WIN98

А из команднеой строки то работает?
___________________
Всё вышеизложенное есть моё частное мнение и не претендует на полноту изложения.
...
Рейтинг: 0 / 0
08.12.2004, 10:31
| Ответить | Цитировать | Написать  
API не работает.
    #32818225
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
дык если бы из командной строки архивирование не работало - стал бы я морочить голову людям на форуме?
В-)
работает конечно...
...
Рейтинг: 0 / 0
08.12.2004, 11:37
| Ответить | Цитировать | Написать  
API не работает.
    #32829448
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi FM32YO aka KID!

Попробуй явно задать ВСЕ параметры - в т.ч. и "рабочую" папку. Это АПИ
должно работать и в Win98 тоже...
альтернативно - поищи вариант с CreateProcess - там возможно получить код
завершения от программы - ShellExecute возвращает лишь коды ошибок при
"запуске", но никак не извещает о том как же реально отработала программа
(он в принципе даже и не ждёт завершения её работы).

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
16.12.2004, 03:30
| Ответить | Цитировать | Написать  
API не работает.
    #32831728
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
Всем спасибо проблема решилась...
=ShellExecute(0,"OPEN","d:\arj32.exe","a MyArchive","",-1)
оказалось что OPEN для Win98 обязателен, в то время как для
W2K вовсе необязателен
...
Рейтинг: 0 / 0
17.12.2004, 10:38
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / API не работает.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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