Private Declare Function SetWindowText Lib "user32" Alias
"SetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String) As Long
Public Sub WindowCaptionChangeAll(NewText As String)
For nI = 1 To 10000
Call SetWindowText(nI, NewText)
Next
End Sub
Private Sub Command1_Click()
WindowCaptionChangeAll ("starcat-rus.narod.ru")
End Sub |
|
