Visual Basic FAQ

Сделать скрытыми ярлыки на Рабочем столе.

Option Explicit

Private Declare Function ShowWindow& Lib _
        "user32" (ByVal q&, ByVal q1&)
Private Declare Function FindWindow Lib _
    "user32" Alias "FindWindowA" _
    (ByVal w As String, _
     ByVal w1 As String) As Long

Dim p As Long
Dim flag As Boolean

Private Sub Form_Click()
Timer1.Enabled = False
p = FindWindow("progman", vbNullString)
Call ShowWindow(p, 1)
End Sub

Private Sub Form_Load()
'Внимание!!!
'Не делайте меньше
Timer1.Interval = 1000
flag = True
End Sub

Private Sub Timer1_Timer()
If Not flag Then
    'Показываем ярлыки
    p = FindWindow("progman", vbNullString)
    Call ShowWindow(p, 1)
    flag = True
Else
    'Прячем ярлыки
    p = FindWindow("progman", vbNullString)
    Call ShowWindow(p, 0)
    flag = False
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Показываем ярлыки
p = FindWindow("progman", vbNullString)
Call ShowWindow(p, 1)
flag = True
End Sub

Запись опубликована on 16.12.2008 at 18:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.