Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / API не работает. / 12 сообщений из 12, страница 1 из 1
06.12.2004, 11:00
    #32813914
FM32YO aka KID
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
почему этот код под 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, 12:10
    #32814132
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
а откуда такая уверенность что функции вин32 апи для вин20000 должны обязательно работать под вин 98 ?????
...
Рейтинг: 0 / 0
06.12.2004, 12:28
    #32814176
API не работает.
а что она возвращает в 98-ом?
по коду ошибки можно определить
...
Рейтинг: 0 / 0
06.12.2004, 14:21
    #32814515
FM32YO aka KID
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
нету у меня такой уверенности...
а ошибки никакой.. вообще никакой
...
Рейтинг: 0 / 0
06.12.2004, 14:26
    #32814528
API не работает.
не ошибки, а что возвращает эта функция, какой код?
...
Рейтинг: 0 / 0
06.12.2004, 14:57
    #32814605
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
а чем run не подходит ???
...
Рейтинг: 0 / 0
06.12.2004, 17:58
    #32815123
Chuveljov Andrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
С равами пользователя всё нормально? Сам файл работает? Просто из коммандной строки?
___________________
Всё вышеизложенное есть моё частное мнение и не претендует на полноту изложения.
...
Рейтинг: 0 / 0
07.12.2004, 14:17
    #32816564
FM32YO aka KID
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
права пользователя в 98-м? это шутка?
работает из командной строки но не работает под 98-м из указанного выше кода... ладно проехали...
...
Рейтинг: 0 / 0
08.12.2004, 10:31
    #32817998
Chuveljov Andrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API не работает.
Пардон не понял, что не работает в WIN98

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

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

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


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