Removing Tabs from tab control

[Gintaras]

Your TC_GetTabText is almost correct but does not support Unicode.

This version supports Unicode.
Function TC_GetTabText

Code:

Copy      Help

;/
function! htb item str&s

;Gets tab control item text.
;Returns 1 if not empty, 0 if empty.

;htb - SysTabControl32 handle
;item - 0-based tab index
;s - receives text.



TCITEMW TabText.mask=WINAPI.TCIF_TEXT
BSTR b.alloc(260)
TabText.pszText=b
TabText.cchTextMax=260
SendMessageW(htb TCM_GETITEMW item &TabText)
s.ansi(b)
ret s.len!=0