Visual Basic 6 help

[BRULIK]

Как программно запустить Service в WinXP ?
Как запустить другую программу в VB ?
Если можно ,в примерах.
senks.

[joker99]

Можно это сделать через Win API.

A в принципе вот пример(правда на c++) как запустит какую нибудь програму из своей как service
http://www.codeproject.com/system/xyntservice.asp

[BRULIK]

a VB ?

[BRULIK]

какой .ocx подключить , чтоб считывать картинку с webcamrы ?

[Eternity]

Где можно достать подробную инфу по этой проге?

[joker99]

По какой?

[BRULIK]

неужели все .Net юзают ?

[Eternity]

VB6
У меня есть диск с самоучителем, но он как-то нихера толком не объяснет!

[V@nya]

А shell "net /start имя_сервиса" не пробовал?
Про .NET ты прав, сейчас все переходят на него.

[BRULIK]

' Start the indicated program and wait for it
' to finish, hiding while we wait.
Private Sub ShellAndWait(ByVal program_name As String, _
ByVal window_style As VbAppWinStyle)
Dim process_id As Long
Dim process_handle As Long

' Start the program.
On Error GoTo ShellError
process_id = Shell(program_name, window_style)
On Error GoTo 0

' Hide.
Me.Visible = False
DoEvents

' Wait for the program to finish.
' Get the process handle.
process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If

' Reappear.
Me.Visible = True
Exit Sub

ShellError:
MsgBox "Error starting task " & _
txtProgram.Text & vbCrLf & _
Err.Description, vbOKOnly Or vbExclamation, _
"Error"
End Sub

[BRULIK]

spasibo Vane