Reply to thread

Message: <blockquote data-quote="deegopower" data-source="post: 5579863" data-attributes="member: 6596"> Onna ganna.....meka DOS walin karanna puluwan explorer.exe eka edit karalathPrivate Const WM_SETTEXT = &HCPrivate Const WM_GETTEXT = &HDPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPublic Sub SetStartCaption(str As String)   Dim StartBar As Long   Dim StartBarText As Long   Dim sCaption As String   StartBar = FindWindow("Shell_TrayWnd", vbNullString)   StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)   sCaption = Left(str, 5)   SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption   Exit Sub   End Sub</blockquote>

Top Bottom