On Thu, 30 Dec 2004 14:16:18 -0500, PLBorkholder
<philip.b AT automationplus .DO.T com> wrote:
> I'm not good at these declarations:
> Can some one translate this code to mimimize windows to VFP ?
> T.I.A.
>
> http://support.microsoft.com/default.aspx?scid=kb;en-us;194914
*!* Private Declare Sub keybd_event Lib "user32" ( _
*!* ByVal bVk As Byte, _
*!* ByVal bScan As Byte, _
*!* ByVal dwFlags As Long, _
*!* ByVal dwExtraInfo As Long)
*!* Const KEYEVENTF_KEYUP = &H2
*!* Const VK_LWIN = &H5B
*!* Private Sub Command1_Click()
*!* ' 77 is the character code for the letter 'M'
*!* Call keybd_event(VK_LWIN, 0, 0, 0)
*!* Call keybd_event(77, 0, 0, 0)
*!* Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
*!* End Sub
DECLARE keybd_event IN user32 ;
integer bVk, ;
integer bScan, ;
integer dwFlags, ;
integer dwExtraInfo
#DEFINE KEYEVENTF_KEYUP 0x2
#DEFINE VK_LWIN 0x5B
keybd_event(VK_LWIN, 0, 0, 0)
keybd_event(77, 0, 0, 0)
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
©2004 Garrett Fitzgerald |
