ПУСК>SAVE

[sad]

Как изменить текст на кнопке ПУСК и можно ли его(ТЕКСТ) сохранить так чтобы он там остался НА ВСЕГДА
FOREVER!!!!!!

[GSerg]

Раньше можно было изменить содержимое user32 с этой целью... Теперь же винда засекает модификацию себя любимой...

[GM]

Прогу на автозагрузке которая делает SetWindowText.

[Ramzes]

Прогу на автозагрузке которая делает SetWindowText.

ТОже вариант, но еще нужно хендл пуска получить пере этим

[tyomitch]

ТОже вариант, но еще нужно хендл пуска получить пере этим

А с этим-то какие проблемы?

[A.A.Z.]

Кстати, а разве это катит не только под XP?

Код: Выделить всё

Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
Dim Wnd&
Wnd = FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), ByVal 0&, "BUTTON", vbNullString)
SetWindowText Wnd, "стоп"
ShowWindow Wnd, 0
ShowWindow Wnd, 1
DoEvents
End Sub

А то я абсолютно идентичный код запускал в 2k, и ничего Я подумал, что там на кнопке - картинка

[GSerg]

Это катит везде, но только если не насажали батонов в таскбар ещё

Правильный способ - через getdlgitem. У тр... эээ... у notification area , например, ID &H12F.
Несложно позырить, какой ID у Пуска... &H130 у него ID

[A.A.Z.]

Э-э-э... А поподробнее мона?

[GSerg]

Неужели забыл тему про часики в трее???

[A.A.Z.]

А, понял Вот куда ID пихать-то

[A.A.Z.]

Тогда так:

Код: Выделить всё

Option Explicit

Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
Dim Wnd&
Wnd = GetDlgItem(FindWindow("Shell_TrayWnd", vbNullString), &H130)
SetWindowText Wnd, "стоп"
ShowWindow Wnd, 0
ShowWindow Wnd, 1
DoEvents
End Sub

[ism]

А если текст не "стоп", а "СТОП!!!!" или еще длиннее?

Код: Выделить всё

Option Explicit

Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Form_Load()
Dim Wnd&
Dim BtnRect As RECT
Wnd = GetDlgItem(FindWindow("Shell_TrayWnd", vbNullString), &H130)
GetWindowRect Wnd, BtnRect
MoveWindow Wnd, 0, 0, BtnRect.Right - BtnRect.Left + 20, BtnRect.Bottom - BtnRect.Top, True
SetWindowText Wnd, "СТОП!!!!!"
ShowWindow Wnd, 0
ShowWindow Wnd, 1
DoEvents
End Sub


[Amed]

А ещё лучше вот так:

Код: Выделить всё

Option Explicit

Private Declare Function GetDlgItem Lib "user32.dll" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Sub Form_Load()
Dim Wnd&
Const wText As String = "Ñòîï!!!"
Dim BtnRect As RECT
Wnd = GetDlgItem(FindWindow("Shell_TrayWnd", vbNullString), &H130)
GetWindowRect Wnd, BtnRect
MoveWindow Wnd, 0, 0, TextWidth(wText) / 16 + 32, BtnRect.Bottom - BtnRect.Top, True
SetWindowText Wnd, wText
ShowWindow Wnd, 0
ShowWindow Wnd, 1
DoEvents
End Sub