| |
Данный пример поменяет заголовки всех активных
окон, представленных на панели задач.
Расположите на форме элемент CommandButton.
Изменив в событии Command1_Click() строковое значение в
скобках и нажав после запуска программы на
кнопку, вы измените заголовки всех окон.
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 ("GARIK")
End Sub
|
|