如何修改EXE文件打开后的名称? 如图;EXTRACUT-多媒体播放与直接剪辑 '就是这个名称

呵呵呵呵。。。

使用VB6.0，编个程序

使用SetWindowText函数（API）即可，哈。

1.新建工程，在窗体上画个按钮和两个文本框（Text1在上，text2在下）。

2.打开form1的代码窗口，清空，直接复制以下代码：

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

Private Sub Command1_Click()
Dim Hw As Long
Hw = FindWindow(vbNullString, Text1.Text)
SetWindowText Hw, Text2.Text
End Sub

Private Sub Form_Load()
Text1.Text = "我的电脑"
Text2.Text = "改标题测试"
Command1.Caption = "改变标题"
End Sub

3.运行：
（注：请先运行你要改标题的EXE）

在text1中输入你想要改的窗口的原标题（就是所谓的“EXTRACUT-多媒体播放与直接剪辑”）

在text2中输入你想改为的标题（如：“哈哈”）

点击command1，即可！