Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hide icone and start button on the desktop
Message
 
 
To
07/05/2002 12:53:23
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00653620
Message ID:
00653953
Views:
16
You can find how to call numerous WIN API functions in VFP at http://news2news.com/vfp/index.php.

>these codes in VB hide and show icones and start button on the desktop.
>Can somebody translate them in VFP ?
>
>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
>
>
>***hide icone
>hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
>ShowWindow hwnd, 0
>
>***show icone
>hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
>ShowWindow hwnd, 5
>
>***hide Start Button
>OurParent& = FindWindow("Shell_TrayWnd", "")
>OurHandle& = FindWindowEx(OurParent&, 0, "Button",vbNullString)
>ShowWindow OurHandle&, 0
>
>***show Start Button
>OurParent& = FindWindow("Shell_TrayWnd", "")
>OurHandle& = FindWindowEx(OurParent&, 0, "Button",vbNullString)
>
>ShowWindow OurHandle&, 5
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform