Shared memory

[Gintaras]

Macro

Code:

Copy      Help

int hwnd=win("Program Manager" "Progman")
int hlv=id(1 "Program Manager")
int n=SendMessage(hlv LVM_GETITEMCOUNT 0 0)
ARRAY(POINT) p.create(n)
lock _share
for int'i 0 n
,SendMessage(hlv LVM_GETITEMPOSITION i share(hwnd))
,memcpy &p[i] share sizeof(POINT)
lock- _share

for i 0 p.len
,out "%i %i" p[i].x p[i].y
,

or

Macro

Code:

Copy      Help

int hwnd=win("Program Manager" "Progman")
int hlv=id(1 "Program Manager")
int n=SendMessage(hlv LVM_GETITEMCOUNT 0 0)
ARRAY(POINT) p.create(n)
lock _share
POINT& pqm=share
for int'i 0 n
,SendMessage(hlv LVM_GETITEMPOSITION i share(hwnd))
,p[i]=pqm
lock- _share

for i 0 p.len
,out "%i %i" p[i].x p[i].y
,