Information générale
Catégorie:
COM/DCOM et OLE Automation
>>
>>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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement