Repost: Replacing Text In Start Button

[Zaf Khan]

Hi,

I want to be able to replace the text in the start button,
and do not want to use BitBlt, but some api method instead.

i tried:
SendMessage
SetWIndowText
SetWindowLong
EnumChildWindows
and had no success....
maybe i did not do it in the correct order, i dont know.

DocZaf
{;->

[Bob Baddeley]

If it's part of your program, I can't help you. But if you want another program that can do that and a whole bunch of other cool things, get WinBoost 2000.

bob

[Zaf Khan]

thanks, its part of my program.....

[Nitro]

Hello Zaf!

Zaf, I don't know how to change the text of the "Start" button, but know how to hide it. Hopes, this work buddy.

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub Main()
  Dim lng_Parent As Long
  lng_Parent = FindWindow("Shell_TrayWnd", "")
  
  Dim lng_Handle As Long
  lng_Handle = FindWindowEx(lng_Parent, 0, "Button", vbNullString)
  
  Call p_Hide_StartButton(lng_Handle)
  'Call p_Show_StartButton(lng_Handle)
End Sub

Function p_Hide_StartButton(lng_Handle As Long)
  'This Function Hides the Start Button'
  ShowWindow lng_Handle, 0
End Function

Function p_Show_StartButton(lng_Handle As Long)
  'This Function Shows the Start Button'
  ShowWindow lng_Handle, 5
End Function

[Zaf Khan]

Thanks for that Nitro, I already got the show/hide

Still, cheers again.
{;->
Zaf

[Raydr]

Your problem is that the Start Button isn't text, it's an image. You can set and get the text all you want, and you are actually setting it, but you won't see it because it's being covered up by the image.

Hope that helps.

[Zaf Khan]

Sure does, thanks Raydr

{;->