Cmd 从命令提示符启动时更改应用程序的标题

我是一个应用程序的业务用户，该应用程序有两个独立的环境：测试环境和生产环境。重要的是我知道我一直在使用哪个环境，但应用程序没有给出任何指示。窗口标题、布局和所有功能都是相同的，并且程序中没有识别环境的功能，因此我有责任记住当前使用的.exe

我想我可以修改快捷方式或使用命令提示符打开窗口，以便标题清楚地显示“测试”或“生产”

我尝试了以下操作，但是，尽管它按预期启动应用程序，但窗口标题没有更改。（我怀疑这仅在启动命令提示时有效）

---

有没有办法做到这一点？如果您有任何想法，我们将不胜感激。

您需要制作一个程序来实现这一点

您需要调用Windows的API。这是如何制作一个标题栏更改程序

使用记事本创建一个文件，并将其命名为SetText.bas。将其存储在桌面上

把这个贴进去

Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.Win32

Public Module MyApplication  

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

Sub Main()
    On Error Resume Next
    Dim CmdLine As String
    Dim Ret as Long
    Dim A() as String
    Dim hwindows as long

    CmdLine = Command()
    If Left(CmdLine, 2) = "/?" Then
        MsgBox("Usage:" & vbCrLf & vbCrLf & "ChangeTitleBar Oldname NewName")
    Else
        A = Split(CmdLine, Chr(34), -1, vbBinaryCompare)
        hwindows = FindWindow(vbNullString, A(1))
        Ret = SetWindowText(hwindows, A(3))

    End If
End Sub
End Module

然后键入命令提示窗口

"C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe" /target:winexe /out:"%userprofile%\desktop\SetText.exe" "%userprofile%\desktop\settext.bas" /verbose

已在桌面上创建一个名为settext.exe的程序。使用

"%userprofile%\desktop\settext" "Untitled - Notepad" "A Renamed Notepad"

---

用法说明：1）最后一个命令必须在程序打开后运行。2） 这是一次标题变更。如果程序更改了自己的标题，则设置的标题将不相关。（以记事本为例，如果您重命名它然后开始键入，它将成为

*Untitled-notepad

。太棒了！不是代码，而是帮助可能没有任何编程经验或不了解Visual Studio的人的方法！非常酷！

"%userprofile%\desktop\settext" "Untitled - Notepad" "A Renamed Notepad"