Постаянная активность

[neic]

Как сделать (желательно через таймер) чтобы форма была постоянно активная?

Корче чтобы всегда отображалось только моё окно в моей прогге!

И ещё:
Как запритить кнопки:
а) Alt+Tab
б) Win+D
в) Alt+Ctrl+Del

Я идиот! Убейте меня, кто-нибудь!

[Odrick]

Ндя, поиск действительно привелегия избранных... С месяц назад поднимал эту тему. Так и называеться "Alt + Tab"

http://bbs.vbstreets.ru/viewtopic.php?t=16532&highlight=alt+tab

То же самое и про активность формы. Тема поднималась тысячу раз. А вообще-то, зачем тебе это нужно?

[neic]

Так основной вопрос остался тем же!

Пункты:
а) -
б) так и остался
в) уж сам разберусь

Да программку делаю не вирь, не троян и так далее!(с пристовкаой НЕ)

[GSerg]

С приставкой НЕ?
Не не троян - это троян

[Jenizix]

GSerg, угу
neic, вот код который делает форму onTop и которая не сворачиваеться по WIN+D

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

Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Const HWND_TOPMOST = -1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2

Private Sub Form_Load()
Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_ACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)


Тока св-во формы лучше НЕ ставить 2 - Sizable

[Arcanoid]

SetWindowLong() with WS_EX_TOPMOST

[neic]

С приставкой НЕ?
Не не троян - это троян

Я сказал и так далее!!!!
Не червь, не убией свои ближних, не воруй чужую инфу

[JohnCR]

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

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 'включение и отключение клавиш Ctrl+Ald+Del
Private Declare Function SetWindowPos Lib "user32.dll" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SPI_SCREENSAVERRUNNING = 97
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOP = 0
Public Sub OffCAD() 'отключение Ctrl+Alt+Del (только для 9х, для NT нельзя)
    SystemParametersInfo SPI_SCREENSAVERRUNNING, True, vbNullString, 0
End Sub
Public Sub OnCAD() 'включение Ctrl+Alt+Del
    SystemParametersInfo SPI_SCREENSAVERRUNNING, False, vbNullString, 0
End Sub
Private Sub Form_Load()
    OffCAD
End Sub
Private Sub Form_Unload(Cancel As Integer)
    OnCAD
End Sub
Private Sub Timer1_Timer() 'активность окна
Dim Flags As Long
Dim RetVal As Long
Flags = SWP_NOSIZE Or SWP_DRAWFRAME
    RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, 1, 1, Flags)
End Sub