Function WAIntProc StdCall(hWnd As HWND, uMsg As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT
End Function
Sub InitKVIrcWinampInterface Alias "InitKVIrcWinampInterface" ()
Static WAWindow As HWND
Dim As WNDCLASSEX WAClass
Dim As ATOM a
With WAClass
.cbSize = SizeOf(WNDCLASSEX)
.style = 0
.lpfnWndProc = @WAIntProc
.cbClsExtra = 0
.cbWndExtra = 0
.hInstance = GetModuleHandle(NULL)
.hIcon = 0
.hCursor = 0
.hbrBackground = 0
.lpszMenuName = NULL
.lpszClassName = "Winamp v1.x"
.hIconSm = 0
End With
a = RegisterClassEx(@WAWindow)
WAWindow = CreateWindowEx(0, "Winamp v1.x","PsyMP3 Winamp Interface Window", _
0, 0, 0, 0, 0, HWND_MESSAGE, 0, GetModuleHandle(NULL), 0)
End Sub