Repost: Replacing Text In Start Button

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
{;->

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

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

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.

Code:

---

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

---

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

Still, cheers again.
{;->
Zaf

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.

Sure does, thanks Raydr

{;->