Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: menu start
thot
lol



Typ: neutral
Postów: 47
Zarejestrowany: Jun 2003
menu start

spotkałem się jush z progiem do robienia przezroczystego paska
pobierał on hwnd paska i robił go nie widzialnym ciekaw jestem jak
pobrac hwnd menu start ?


_____________________________________________
nie chce ci sie deklarowac api?
nie chcesz pisac dlugich funkcji?
chesz miec mozliwosc kolorowania napisu na
commandbutionie i wiele innych ciekawych funkcji?

-ściągnij kontrolkę FkFx
www.fkfx.webpark.pl

23-08-2003 12:28
Pokaż profil thot  Wyślij email do thot   Odwiedź stronę thot       4138988
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

W bardzo banalny sposób:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
zonk = FindWindowEx(FindWindow("Shell_TrayWnd", "" ), 0, "Button", "" )
ShowWindow zonk, 0
End Sub

Private Sub Command2_Click()
zonk = FindWindowEx(FindWindow("Shell_TrayWnd", "" ), 0, "Button", "" )
ShowWindow zonk, 5
End Sub

Kiedyś mi sie nudziło i zrobiłem sobie programik do ukrywania i pokazywania przycisku start. O ile ci chodzi o przycisk a nie samo menu. W przypadku menu to zrobić to można podobnie.


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

24-08-2003 05:08
Pokaż profil m-a-x  Wyślij email do m-a-x   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1