4 вопроса

[Bakli]

1. Как скрыть будущую прогу из диспетчера задач?
2. Как переименовать процесс моей программы?
3. Как сделать, чтобы моя программа отображалась в трее возле часиков?
4. Какая команда служит для открытия файла или директории(Например: по щелчку на определенную кнопку в программе откроется какой-нибудь рисунок или папка)

[goro]

1. Как скрыть будущую прогу из диспетчера задач?
2. Как переименовать процесс моей программы?
3. Как сделать, чтобы моя программа отображалась в трее возле часиков?
4. Какая команда служит для открытия файла или директории(Например: по щелчку на определенную кнопку в программе откроется какой-нибудь рисунок или папка)

1) app.taskvisible = false - Это максимум чего можно добится. Прячет в процессы
2) Никак ИМХО
3) Такой инфы в инете очень много и по форуму уже раз ...цать было ищи.
4) shell "notepad.exe"

Пока все

[Bakli]

А как чтобы открывало указанный путь? Просто в кавычках?

[RayShade]

Указанный путь тогда:

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

Shell "explorer.exe c:\"

[Bakli]

Кстати насчет второго: если я создам проект Nvid, а скомпилю ехе Prog, то в задачах будет NVid, а в процессах Prog.
IMHO это и есть переименование процесса;)

[Bakli]

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

app.taskvisible = false

Не хочет:( Даже не хочет запускать проект, а уж в ЕХЕ его....
Это имеет значение для каких виндов? А то мне давали тоже код, но под ХР не парил...
Может еще как нить мона или как сделать, чтобы этот заработал?

[sanches]

1)
насчет XP не знаю, а в 9х пашет:

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

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Register as service
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Unregister as service
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MakeMeService
    'Right now, you're program is hidden from the CTRL-ALT-DEL-list
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnMakeMeService
End Sub

[Bakli]

Именно такое с kernell32 в ХР и не парит