FOR x = 1 TO _SCREEN.FormCount
   ?_SCREEN.Forms(x).Caption
ENDFOR

Declare Integer GetProcessHeaps in Win32API Integer, String @
Declare Integer HeapWalk in Win32API Integer, String @
Declare Integer IsBadReadPtr in Win32API Integer, Integer

local lcPROCESS_HEAP_ENTRY, lnHeapHandle, lnRez, lnMemPosition, lnMemSize, lnHeapCnt, lcHeapBuffer


lcHeapBuffer = ""
lnRez = GetProcessHeaps(0, @lcHeapBuffer)
lcHeapBuffer = repl(chr(0), lnRez*4)
lnRez = GetProcessHeaps(lnRez, @lcHeapBuffer)


local llFound, lnHeapWalkRez, lnReadable, lcBody
llFound=.f.
for i = 1 to lnRez

    lnHeapHandle = str2dword(substr(lcHeapBuffer,i*4-3,4))
    lcPROCESS_HEAP_ENTRY = ;
        repl(chr(0),4) + ;            && lpData
        repl(chr(0),4) + ;            && cbData
        chr(0) + ;                    && cbOverhead
        chr(0) + ;                    && iRegionIndex
        chr(1) + chr(0) + ;            && wFlags //PROCESS_HEAP_REGION
        repl(chr(0),8) + ;            && Block
        repl(chr(0),16)                && Region

    do while .t.
        lnHeapWalkRez = HeapWalk(lnHeapHandle, @lcPROCESS_HEAP_ENTRY)
        if lnHeapWalkRez = 0
            exit
        endif
        lnMemPosition = str2dword(left(lcPROCESS_HEAP_ENTRY,4))
        lnMemSize = str2dword(substr(lcPROCESS_HEAP_ENTRY,5,4))
        lnReadable = IsBadReadPtr(lnMemPosition, lnMemSize)
        if lnReadable = 0
            lcBody=repl(chr(0), lnMemSize)
            Declare RtlMoveMemory in Win32API String @, Integer, Integer
            RtlMoveMemory(@lcBody, lnMemPosition, lnMemSize)
            if left(lcBody,4) = chr(0x0F)+chr(0x40)+chr(0x00)+chr(0x00) ;
                    and lower(sys(16,0)) $ lcBody
                llFound=.t.
                exit
            endif
        endif
    enddo

    if llFound
        exit
    endif

next

local lnSelect
lnSelect=select(0)


local laFiles1(1), laFiles2(1), lnFilesCnt1, lnFilesCnt2, lnFilesCnt3
local lcFilename1, lcFilename2, lcExtension1, lcExtension2

lcBody=substr(left(lcBody,at(lower(sys(16,0)),lcBody)-1),9)
word_num(lcBody, chr(0), @laFiles1)
create cursor _files (name C(254))
lnFilesCnt1=alen(laFiles1,1)
lnFilesCnt2=0

for i=1 to lnFilesCnt1
    if !"\" $ laFiles1(i)
        lnFilesCnt2=lnFilesCnt2+1
        dimension laFiles2(lnFilesCnt2)
        laFiles2(lnFilesCnt2)=laFiles1(i)
    endif
next

lnFilesCnt3=0
for i=1 to lnFilesCnt2
    lcExtension = justext(laFiles2(i))
    if lcExtension == "scx"
        lnFilesCnt3=lnFilesCnt3+1
        insert into _files values (laFiles2(i))
    endif
next

select _files
browse


FUNCTION str2dword
lparameter m.st1
local m.st2,m.wrd
if len(m.st1)<4
    m.st2=padl(m.st1,4,chr(0))
else
    m.st2=left(m.st1,4)
endif
m.wrd=0
Declare RtlMoveMemory in Win32API Integer @wrd, String @st1, Integer cnt
RtlMoveMemory(@m.wrd, @m.st1, 4)
Return m.wrd


Function word_num
lparameter m.txt, m.razd, ar1

if len(m.razd)=0
    return 0
endif
local m.cn1, m.cn2, m.st1, m.txt2, m.ln, m.i
m.cn1=occurs(m.razd,m.txt)
if m.cn1=0
    if empty(m.txt)
        return 0
    else
        dimension ar1(1)
        ar1(1)=m.txt
        return 1
    endif
else
    m.cn2=0
    m.txt2=m.razd+m.txt+m.razd
    m.ln=len(m.razd)
    for m.i=1 to m.cn1+1
        m.st1=substr(m.txt2,at(m.razd,m.txt2,m.i)+m.ln,at(m.razd,m.txt2,m.i+1)-at(m.razd,m.txt2,m.i)-m.ln)
        m.st1=allt(m.st1)
        if !empty(m.st1)
            m.cn2=m.cn2+1
            dimension ar1(m.cn2)
            ar1(m.cn2)=m.st1
        endif
    next
    return m.cn2
endif