Hi,

I'd like to automate the process of loading the contents of a PRG to the clipboard.
For this task, I'm trying to use SYS(1500) to simulate some menu actions, like "Select All" and "Copy" - CtrlA and CtrlC

Below is the code I'm using:

LOCAL lcFile
lcFile = GETFILE("prg")

MODIFY COMMAND (lcFile) NOWAIT 

* Select all 
SYS(1500, '_MED_SLCTA ', '_MEDIT')  && Select All menu item

* Copy
SYS(1500, '_MED_COPY ', '_MEDIT')  && Copy menu item

The problem is that sometimes it seems to work fine, and sometimes, nothing happens. I've already tried lots of things, like ensuring that the menu is visible, prior checking if the menu is available using SYS(2013), DOEVENTS, waiting for a second before each action...

Can someone provide a hint on this ?


I really need the content of the PRG to the clipboard, in order use the new feature from VFP9 that sends the copied part of the PRG to the clipboard in the HTML mode.


Thanks in advance

Cesar