Проблемный сервис
Я создал сервис через мастер в билдере, проинсталировал, запустил. В событие OnExecute засунул код. Однако при запуске сервиса кроме создания процесса с именем Project1 больше ничего не происходит. Вставлял вместо этого кода просто ShowMessage - служба не может запуститься, дает ошибку - "служба не ответила на запрос" и после этого остается в состоянии "запуск".
LPTSTR lpCommandLine = "c:\Project2.exe";
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
ZeroMemory( &pi, sizeof(pi) );
if (CreateProcess(NULL, lpCommandLine, NULL, NULL, false, 0, NULL, NULL, &si, &pi ) == false)
return;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
Цитата:
LPTSTR lpCommandLine = "c:\Project2.exe";
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
ZeroMemory( &pi, sizeof(pi) );
if (CreateProcess(NULL, lpCommandLine, NULL, NULL, false, 0, NULL, NULL, &si, &pi ) == false)
return;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);