Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Как дождаться завершения выполнения команды?   Найти похожие ветки 

 
fag2000   (2004-05-07 13:13) [0]

Вот пример кода, извените, что на VB, который вроде нормально дожидается завершения исполняемых файлов. А вот если ему подсунуть например vbs, то он SEI.hProcess возвращает 0 и соответственно ничего не дожидается. Не подскажите как с этим бороться?

Dim lExecResult As Long
Dim SEI As SHELLEXECUTEINFO
   If bSyncr Then
       With SEI
           .cbSize = Len(SEI)
           .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
           .hwnd = 0
           .lpVerb = "open"
           .lpFile = FilePath
           .lpParameters = vbNullChar
           .lpDirectory = vbNullChar
           .nShow = 0
           .hInstApp = 0
           .lpIDList = 0
       End With
       lExecResult = ShellExecuteEX(SEI)
       lExecResult = WaitForSingleObject(SEI.hProcess, INFINITE)
       lExecResult = CloseHandle(SEI.hProcess)


 
Digitman ©   (2004-05-07 13:19) [1]


> подсунуть например vbs


чего-чего "подсунуть" ? кому "подсунуть" ? что есть вообще "подсунуть" ? что есть vbs ?


 
Sergey_Masloff   (2004-05-07 13:43) [2]

Digitman ©   (07.05.04 13:19) [1]
Подсунуть файл со скриптом. Для Windows Script Host например. vbs это видимо имеется в виду файл VisualBasicScript.

fag2000  
Фиг знает. Надо подумать. Но не твоим способом - тут ты ждешь завершения процесса а со скриптом все не так...


 
blackman ©   (2004-05-07 15:53) [3]

Просто не торопись :)


 
fag2000   (2004-05-11 14:48) [4]

??


 
fag2000   (2004-05-11 19:30) [5]

??



Страницы: 1 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.044 c
1-1084567919
LORDMAXX
2004-05-15 00:51
2004.05.30
Где лежит номер лицензии Windows?


1-1085001011
netVare
2004-05-20 01:10
2004.05.30
Как организовать поБИТовое чтение/запись из/в файла


7-1082347958
AGAMEMNUM
2004-04-19 08:12
2004.05.30
софт для сименсов


3-1084115949
Cerera
2004-05-09 19:19
2004.05.30
Помогите с базой данных!!!


8-1079550487
Rediska
2004-03-17 22:08
2004.05.30
Как создать *.wav файл в Delphi ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский