Declare integer CreateToolhelp32Snapshot in win32api integer, integer
Declare integer Process32First in win32api integer, string @
Declare integer Process32Next in win32api integer, string @
Declare integer CloseHandle in Win32Api integer
Declare long GetLastError in Win32Api 
Set Textmerge on to xxx.xxx
h=CreateToolhelp32Snapshot( 2 , 8 )
xx= 36 + 260 
buf=B2C(xx, 4 )+Replicate(Chr( 0 ),xx+ 4 )
process32first(h,@buf)
\<<word(buf)>>
i= 0 
DO while process32next(h,@buf)= 1 
	\<<word(buf)>>
EndDo
CloseHandle(h)
Set Textmerge to

Procedure Word(s)
s=substr(buf, 37 )
Return Substr(s, 1 ,Atc(Chr( 0 ),s)- 1 )

Procedure B2C(m.Val,m.Len)
local i, m.Ret
m.Len=Iif(Empty(m.Len), 4 ,m.Len)
m.Ret=""
do while m.Val #  0 
	m.Ret=m.Ret+Chr(Mod(m.Val, 256 ))
	m.Val=BitRShift(m.Val, 8 )
enddo
Return iif(empty(m.Len),m.Ret,Padr(m.Ret,m.Len,chr( 0 )))

Procedure C2B( m.str)
Local n, i
n= 0 
For i=Len(m.str) to  1  step - 1 
    n=BitLshift(n, 8 )+Asc(Substr(m.str,i, 1 ))
Next
Return n