Lecture d'un objet externe à Panoramic.

dim a$, hnd%, res%, txt$, i%, s$, x%, y%
dim x1%, y1%, x2%, y2%

' Position du mot recherché (écran de gauche).
x1%=832:y1%=140
' Position du menu 'Edition'.
x2%=935:y2%=42

dll_on "kgf.dll"
clipboard_string_copy ""

left 0,-500
memo 1 : full_space 1

hnd%=dll_call2("GetObjectUnderPosition",x1%,y1%)
' message str$(hnd%)
txt$=""
a$=""

        res%=dll_call2("AbsoluteMouseLeftClick",x1%,y1%)
        wait 500
        ' Edition.
        res%=dll_call2("AbsoluteMouseLeftClick",x2%,y2%)
        wait 500
       
        ' Clic sur 'Copier'.
        res%=dll_call2("AbsoluteMousePosition",x2%,y2%+45)
        res%=dll_call2("AbsoluteMouseLeftClick",x2%,y2%+45)
        wait 500

        ' res%=dll_call5("SendSingleKey",hnd%,67,1,0,0)  :  ' envoyer ctrl/C
        ' wait 500
        ' message "'"+clipboard_string_paste$+"'"
       
        ' res%=dll_call5("SendSingleKey",hnd%,40,0,1,0)  : ' envoyer flèche vers le bas
        ' wait 300
        ' res%=dll_call5("SendSingleKey",hnd%,40,0,1,0)  : ' envoyer flèche vers le bas
        ' wait 300
        ' res%=dll_call5("SendSingleKey",hnd%,13,0,1,0)  : ' envoyer enter
        ' wait 200
 res%=DLL_call1("ClipboardCopy",hnd%)
' res%=DLL_call1("CopyToClipboard",hnd%)

' txt$ = string$(255," ")
' res% = DLL_call1("GetSelectedText",adr(txt$))
' message "Le texte sélectionné est: "+trim$(txt$)

        ' if clipboard_string_paste$<>a$
          a$=clipboard_string_paste$
          message "'"+a$+"'"
          if a$="" then exit_for
          txt$=txt$+" "+a$
          clipboard_string_copy ""
        ' end_if
     
        wait 500

    item_add 1,txt$
    txt$=""

dll_off