Hra jse neche přejmenovat! – Visual Basic – Fórum – Programujte.com

Mám problém, když si udělám program na přejmenování hry (nahoře na lište) tak my to vubec nefaká! Co stím? Mám špatně kod?

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Const WM_SETTEXT = &HC



Private Sub cmd_Play()

Shell "game.exe"

End Sub



Private Sub tmrGamers_Timer()

Dim lGameHwnd As Long

lGameHwnd = FindWindow("Game", vbNullString)

SendMessageSTRING lGameHwnd, WM_SETTEXT, 256, "Garu's"

End Sub