Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Obtain an object reference to 3rd party dialog box.
Message
From
28/07/2000 08:47:10
 
 
To
28/07/2000 08:45:00
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00397494
Message ID:
00398100
Views:
27
>>
>>Don't suppose you can see anything immediately obviously wrong with it?
>>
Would help if I posted the code... sorry for all the posts, I've got dyslexic fingers today...

The Code....

LOCAL lcWindow

lcWindow = "Save As"

=RestoreWindow( lcWindow)
=SendKey( "M", lcWindow)


*****************************************************************
FUNCTION SendKey
LPARAMETERS tcKeyStroke, tcWindowTitle

DECLARE INTEGER SendMessage IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER

=SendMessage( GetWindowHandle( tcWindowTitle), 256, ASC( tcKeyStroke), 0)
=SendMessage( GetWindowHandle( tcWindowTitle), 257, ASC( tcKeyStroke), 0)

RETURN


**************************************************************
FUNCTION GetWindowHandle
LPARAMETERS tcWindowTitle
LOCAL lnReturn

*-- Make this into a generic function later...
DECLARE INTEGER FindWindow IN WIN32API INTEGER, STRING

lnReturn = FindWindow( 0, tcWindowTitle)

RETURN lnReturn
Previous
Reply
Map
View

Click here to load this message in the networking platform