CreateProcess и его последствия (странная история)

[Eugenio]

Запускаю процесс из своего приложения. С точно теми же параметрами, что из командной строки раньше.
И вдруг эта (чужая) запущенная прога сообщает, что не может установить соединения с SQL Server (по TCP/IP). Запускаю из командной строки - всё нормально.
Процесс из моего приложения запускается с параметрами безопасности по умолчанию. И из командной строки ведь тоже, вроде бы?
В чем м.б. разница?

[GSerg]

А дело точно в параметрах безопасности?

[Eugenio]

А дело точно в параметрах безопасности?

Да я про них на всякий упомянул.
Просто не понимаю, в чем разница между этими способами запуска в данном случае

[GSerg]

Например, ты намудрил с кавычками или упустил их.

[Eugenio]

Например, ты намудрил с кавычками или упустил их.

Поглядел через TaskInfo командную строку обоих процессов (запуск из командной строки и из проги на VB) - они одинаковые!
Мне кажется, если б с кавычками намудрил, то чужая прога просто не запустилась бы.
Жуть какая-то... И че делать вообще непонятно. Тут я обходных путей просто не вижу (ShellExecute не канает, нужен хэндл процесса).. Запускаешь себе прогу, но при одном способе (cmd) все нормально, а при другом (CreateProcess) - SQL server не находится! Вообще хрень какая-то..
И повторяется это в 100% случаев

[GSerg]

А как она его ищет?

[Eugenio]

А как она его ищет?

Не знаю, в том-то и дело. чужая прога.
Но используется ODBC. Причем, без настройки источников данных на клиенте. напрямую.

Native: 6
Message: [Microsoft][ODBC SQL Server driver][TCP/IP Sockets] Specified SQL server not found.

Native: 10055
Message: [Microsoft][ODBC SQL Server driver][TCP/IP Sockets] ConnectionOopen(Connect()).

[keks-n]

ShellExecute не канает, нужен хэндл процесса

Так Shell вроде PID возвращает.
Или я чего опять не понимаю:scratch:

[GSerg]

Потом этот PID ты откроешь с минимальными правами. Оно тебе надо, если createprocess возвращает FULL_ACCESS?


Может, дело в том, что прога ищет сервак в своём конфиге, а ты ей не задаёшь папку по умолчанию, и она ищет в твоей?

[Eugenio]

Да, только нужен не PID, а handle. И желательно не только процесса, но и главного потока.
Можно, конечно, попробовать OpenProcess с полученным PID'ом...
Я уж про то думал. Но, кстати, понятия не имею, как перечислять потоки в процессе

[Eugenio]

Потом этот PID ты откроешь с минимальными правами. Оно тебе надо, если createprocess возвращает FULL_ACCESS?


Может, дело в том, что прога ищет сервак в своём конфиге, а ты ей не задаёшь папку по умолчанию, и она ищет в твоей?

Они совпадают

[Cryonyx]

А когда мы запускаем чужую прогу из своей через АПИ, наша над ней становится что-то вроде родителя?

Где находится сиквел-сервер?

[Eugenio]

юзай winexec

Это замечательно, только использование winexec дает еще меньше, чем Shell. Не заметил, о чем тут речь шла?

[Eugenio]

Вобщем, все-таки Shell + OpenProcess.
Это работает.
Загадочно это всё...

[GSerg]

Таки покажи, как вызываешь createprocess...

[Andrey Fedorov]

А может этой программе просто нужен какой-то файл из ее каталога (или вложенных)? Например, udl... Ты CurrentDirectory указываешь?

[GSerg]

Andrey Fedorov
http://bbs.vbstreets.ru/viewtopic.php?p=6572608#6572608

[Eugenio]

Таки покажи, как вызываешь createprocess...

Был тут завален, поэтому не отвечал. Вот:

Код: Выделить всё


lngProcCreationResult& = CreateProcess(vbNullString, FullPath & " " & CmdLine, ByVal 0&, ByVal 0&, 0&, _
NORMAL_PRIORITY_CLASS, 0&, App.Path, STARTUP_INFO, PROC_INFO)
If lngProcCreationResult = 0 Then
            SetStatus "Ошибка создания процесса: " & CStr(GetLastError()), True
            Exit Function
End If

[ANDLL]

CreateProcess(vbNullString, FullPath & " " & CmdLine, ByVal 0&, ByVal 0&, 0&, _
NORMAL_PRIORITY_CLASS,BYVAL 0&, App.Path, STARTUP_INFO, PROC_INFO)

[Eugenio]

CreateProcess(vbNullString, FullPath & " " & CmdLine, ByVal 0&, ByVal 0&, 0&, _
NORMAL_PRIORITY_CLASS,BYVAL 0&, App.Path, STARTUP_INFO, PROC_INFO)

Да я понимаю. ByVal в Declare вписан. Я там вообще все явно написал, так удобнее.

Код: Выделить всё

Public Declare Function CreateProcess Lib "kernel32.dll" Alias "CreateProcessA" _
(ByVal lpApplicationName As String, ByVal lpCommandLine As String, _
ByRef lpProcessAttributes As Any, ByRef lpThreadAttributes As Any, _
ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As String, _
ByVal lpCurrentDirectory As String, ByRef lpStartupInfo As STARTUPINFO, _
ByRef lpProcessInformation As PROCESS_INFORMATION) As Long

[GSerg]

Если в ByVal lpEnvironment As String передать 0&, то dll получит что?
Правильно, dll получит указатель на "0".

Таки объяви как long.

[Eugenio]

Если в ByVal lpEnvironment As String передать 0&, то dll получит что?
Правильно, dll получит указатель на "0".

Таки объяви как long.

Таки придется!
Ну ё-мое, почему очевидное видят все кроме меня.
Мне As String был нужен в другом случае, я про него и забыл, рассчитывал на Long!
Спасибо.
ЗЫ. Кто-то сказал "баги размножаются копированием". Это точно.

[alibek]

Можно еще As Any.

[Eugenio]

Можно еще As Any.

Угу.