请问如何在我的电脑标题栏中写字
请问如何在我的电脑标题栏中写字我已经知道怎样在IE标题栏中写字了,如何在我的电脑标题栏中写字.(请写的详细点)谢谢.(硬盘)高手进(最好用VB编写)
先用FindWindow获取我的电脑的句柄或者用vc的spy++获取。
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
FindWindow("ThunderRT5Main", vbNullString)
在用SendMessage更改标题
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
========================================================
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Dim MyApi As Long '注释:定义整形变量
MyApi = FindWindow(vbNullString, "计算器") '注释:调用 findwindow函数
If MyApi <> 0 Then '注释:如果findwindow函数成功(如果成功返回值大于0)
SendMessage MyApi, &HC, 0, ByVal "你要改的计算器名称"
'注释:调用sendmegess函数发送消息,&HC为 发送文本消息的 常量.
Else
MsgBox "程序没有运行" '注释:如果等于0 则提示
End If
End Sub
用GetForegroundWindow函数获取活动窗口的句柄,然后用S
SetWindowText函数设置窗口标题.可以配合定时器控件进行实时修改.
也可以通过FindWindow查找窗口句柄,类名为CabinetWClass.
然后用SetWindowText函数设置窗口标题.
那个默认是文件名的名字
在“我的电脑”上单击右键,改名
相关内容