مخفی کردن TaskBar در Windows XP

[sm]

با سلام
چطوری میشه در ابتدای برنامه TaskBar پایین صفحه ویندوز رو مخفی و هنگام بسته شدن برنامه اون رو به حالت اول برگردوند؟
ممنون

[علیرضا مداح]

سلام .

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Public Const SWP_HIDEWINDOW As Short = &H80S
Public Const SWP_SHOWWINDOW As Short = &H40S
Dim N As Integer
Sub HideTaskbar()
'Hide The Taskbar
N = FindWindow("Shell_traywnd", "")
Call SetWindowPos(N, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
Sub ShowTaskbar()
'Show Taskbar
N = FindWindow("Shell_traywnd", "")
Call SetWindowPos(N, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

[sm]

آقای مداح عزیز خیلی خیلی ممنون
مشکلم حل شد
امکان داره که TaskBar رو AutoHide کرد؟ یعنی وقتی موس روی اون قرار می گیره نشون داده بشه و و قتی موس از روش میره مخفی بشه ؟
بازم خیلی خیلی ممنونم.

*** سوالات خصوصی خود را از طریق پیام شخصی ارسال نمایید (م.غ) ***

[کم حوصله]

گاهی موقع ها یکی سنگی را میندازه تو چاه که صد تا آدم هم نمی تونند اونو در بیارند !! :mad:
شاید هم کارایی را می کنه که صدتا آدم دیگه را می اندازه تو دردسر !! :mad:

میگید نه !! :sunglass:

به امید بهروزی
:موفق: :موفق:

[sm]

ممنون :موفق: :موفق: :strange: