[REBOL] Re: Skinz 0.2 (Now an API Tutorial)
From: tbrownell::shaw::ca at: 25-Feb-2002 18:05
More bugs :) Not sure why this doesn't work? Do I have the WM_USER binary
right? (was 0x400)
win-user: load/library %user32.dll
find-window-by-class: make routine! [
ClassName [string!]
WindowName [integer!]
return: [integer!]
] win-user "FindWindowA"
wahwnd: find-window-by-class "Winamp v1.x" 0
send-message: make routine! [
hWnd [integer!]
wMsg [integer!]
wParam [integer!]
lParam [integer!]
return: [integer!]
] win-user "SendMessageA"
WM_COMMAND: to-integer #{00000111}
WM_USER: to-integer #{00001024}
winamp-hwnd: find-window-by-class "Winamp v1.x" 0
print send-message winamp-hwnd WM_USER 0 105 ;105 returns current track
length in seconds