| Вопрос: Как скрыть окно? | Добавлено: 17.01.06 16:55 |
Автор вопроса:  SerJ
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  SerJ Вопросов: 24 Ответов: 332 |
Профиль | | #16 | Добавлено: 26.01.06 15:31 |
|
2mc-black: Respect!
Вот он, мой кодик.... Option Explicit Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const SW_HIDE = 0 Private Const STARTF_USESHOWWINDOW = &H1 Private Sub Command1_Click() Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim ret As Long start.cb = Len(start) start.lpTitle = "Ты все равно меня не увидишь (диспетчер не в счет, хотя...)  "
start.wShowWindow = SW_HIDE start.dwFlags = STARTF_USESHOWWINDOW ret = CreateProcessA(0&, "cmd.exe", 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, vbNullString, start, proc) ret = WaitForSingleObject(proc.hProcess, INFINITE) ret = CloseHandle(proc.hProcess) MsgBox "Window has closed" End Sub |
||
|
Номер ответа: 17 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #17 | Добавлено: 26.01.06 15:47 |
| Ничего так, забавно.. Понятно в общем, что требовалось. Посмотри VBFantom | ||
|
Номер ответа: 18 Автор ответа: SerJВопросов: 24 Ответов: 332 |
Профиль | | #18 | Добавлено: 26.01.06 16:45 |
| Неее...Конечно все уважения sne, но фантомчик когда заработает, так сразу диспетчера берут глюки. Кстати, sne (если ты есть, а то пропал куда-то), почему такое случается? | ||
|
Номер ответа: 19 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #19 | Добавлено: 27.01.06 08:08 |
|
Заказ наверное на TVBrowser взял Или кто вообще его взял?
|
||
|
Номер ответа: 20 Автор ответа: SerJВопросов: 24 Ответов: 332 |
Профиль | | #20 | Добавлено: 27.01.06 13:11 |
|
Всё-таки, наверное, тот, кто наиболее пропадает
Заказ наверное на TVBrowser взял
аааа.... Ну, удачи!
|
||