Ai cuu toi voi

**Nguyen Thanh Binh** · 19-08-2002 12:26

Chao cac huynh de ti muoi.

Xin cac huynh de ti muoi chi giup de cach vo hieu hoa (roi chi luon cach phuc hoi tac dung) nut nhan "Start" noi tieng cua Microsoft. De co doc thay trong cuon "Cac ki xao lap trinh voi VB va Delphi" nhung bai nay viet bang delphi con de thi chang biet gi ve delphi ca. Xin giup do. Da ta !

**come2one** · 22-08-2002 18:15

Tôi cũng đã thử API để giấu cả Taskbar, chứ riêng nút Start thì chịu. Có ai biết chỉ giùm chúng tôi với.

Thân!

**White_Rose** · 23-08-2002 01:22

lấy hwnd của nút đó (trong cuốn trên) rồi thì muốn làm gì mà chả được? tui đổi tên còn đuợc mà

**Nguyen Thanh Binh** · 23-08-2002 12:53

Xin anh White_Rose viet cho em ma nguon di. Em da thu tat ca roi nhung khong thanh cong. Ham Sendmessage co 4 doi so, trong do, theo sach tren em chi lay duoc doi so thu hai (hay 3 gi do) bang APIViewer, con may cai khac thi em chiu thua, tim khong ra. A, lam sao lay duoc Hwnd cua cai nut do vay anh ? Lam sao anh doi ten nut Start duoc vay. Giup em luon nha !

Con anh come2one lam sao dau thanh taskbar duoc vay ? Chi em luon di. Em thich thoc vao he thong Windows lam.

Bye.

**quaitieutu** · 23-08-2002 15:26

Được rồi để Tiểu Tử gửi cho
Nhưng mà phải 2 ngày nữa nhá
Biến nút Start phải không,cái này hồi trước trên DĐ này cũng có các anh nói rồi .Chắc các bạn chưa đọc được,cũng không khó lắm.
Nó chỉ có tác dụng trong các phòng NET thôi để ngăn quậy phá chứ mình mà dùng thì nó toàn gây ra phiền phức

**Nguyen Thanh Binh** · 26-08-2002 18:08

Cám ơn bạn giúp đỡ. Mình sẽ đợi. Bye.

**westlife** · 26-08-2002 20:04

Bạn muốn úm ba la với nút Start à ? Đơn gian thôi mà. Bạn đến trang này mà tìm http://coolcode4you.fateback.com đảm bảo bạn không phí thời gian đâu. Nhưng mà bạn phải cho mình 2 ngày để mình up bài viết về việc giấu nút Start lên nhé.
Have fun !!!

**White_Rose** · 28-08-2002 01:16

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

Public Sub StartButton(Invisible As Boolean)
Dim lngHWND As Long
lngHWND = FindWindow("Shell_TrayWnd", "")
lngHWND = FindWindowEx(lngHWND, 0, "Button", vbNullString)
If Invisible = True Then
ShowWindow lngHWND, 0
Else
ShowWindow lngHWND, 5
End If
End Sub

StartButton(True): hiện
StartButton(False): ẩn