私は、テストとプロダクションという2つの異なる環境を持つアプリケーションのビジネスユーザーです。常に使用している環境はわかっていることが重要ですが、アプリケーションは何の指示もしません。ウィンドウのタイトル、レイアウト、およびすべての機能が同一で、プログラム内に環境を識別する機能がないため、現在使用している.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"