Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Система

Все примеры / Система

Исчезнавение System Tray

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:22 | просмотров: 1365 (1+) | комментариев: 1 | рейтинг: *x0
Исчезнавение System Tray.

Код

'''''IpatovSoft 2007'''''
'''''www.IpatovSoft.ucoz.ru''''

Private Const SRCCOPY& = &HCC0020
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
 (ByVal lpDriverName As String, ByVal lpDeviceName As String, _
 ByVal lpOutput As String, lpInitData As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC _
 As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth _
 As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal _
 xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2

Private Declare Function 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) As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim hwnd1 As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

 Dim DeskDC As Long

 Me.AutoRedraw = True
' Создать экранный контекст устройства
 DeskDC = CreateDC("DISPLAY", vbNullString, vbNullString, 0)
' Скопировать на Form изображение с экрана
 Call BitBlt(Me.hdc, 0, 0, 1024, 768, DeskDC, 0, 0, SRCCOPY)
' Удалить созданный ранее контекст
 Call DeleteDC(DeskDC)
 Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

 Picture1 = Form1.Picture
SavePicture Form1.Image, App.Path & "\1.bmp"
Picture1.PaintPicture LoadPicture(App.Path & "\1.bmp"), 0, -740
 hwnd1 = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, RGB(125, 125, 125), 0, LWA_COLORKEY

End Sub

Private Sub Form_Unload(Cancel As Integer)
hwnd1 = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()
Randomize
X = Int(Rnd * 1024)
Y = Int(Rnd * 50)
For i = 1 To 3
For i2 = 1 To 3
Picture1.PSet (X + i, Y + i2), RGB(125, 125, 125)
Next i2
Next i
End Sub
Файлы 19_systemtray.rar (2,41 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 1)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.

А теперь понятно почему у Евгения Ипатова с орфографией плохо...Он вместо русского языка на уроках писал проги!! ))))
Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики