主页 / computer / 问题 / 1730514
Accepted
Camille Goudeseune
Asked: 2022-07-08 14:04:10 +0800 CST

复制窗口标题栏的文本？

  • 772

如何复制 Windows 程序标题栏的全文，而不只是屏幕截图的实际字母，然后粘贴到例如记事本中？在这个例子中，我想得到文字

screenshot.png - IrfanView (Zoom: 1674 x 1046) (Selection: 811, 212; 2137 x 1312; 1.629)

将文本保存到硬编码文件名或其他地方也可以。我只是想避免手动阅读并输入它，这很慢且容易出错。

例子

windows-10 screenshot

3 个回答

  1. 没有任何本地方法可以从 Windows 标题栏中复制文本。据我所知，在 Windows 11 和 10 中确实如此。

    我建议你试试这个第三方程序（可能还有其他程序）：

    复制标题栏文本

    使用 GetWindowText 从标题栏和其他打开的窗口中轻松复制文本

    这个免费、便携和轻便的程序让您可以从通常无法复制的地方复制文本，例如标题栏、状态栏、工具栏等。

    该程序具有一个十字准线，您可以将其拖放到需要复制的元素上方。当这个十字准线漂浮在打开的窗口上方时，它会立即更新显示可以复制的文本。释放十字准线停止此过程，您可以复制当前显示在程序面板上的任何文本。

    • 1

  2. 我在 Dragon Professional Individual 中使用PGilm的以下语音命令将窗口的标题栏文本复制到剪贴板：

    '
'   get window title
'
Sub Main
    Clipboard ( GetWindowTitle )
End Sub
'
'   Use these Windows Functions for Getting an active Window title
'
Declare Function GetForegroundWindow Lib "user32" () As Long
'
Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" ( ByVal hwnd As Long , _
        ByVal lpString As String , ByVal cch As Long ) As Long
'
'   GetWindowTitle
'   (Gets an active Window title)
'
Function GetWindowTitle() As String
    Dim x As Integer
    Dim TitleText As String * 300
    Dim hw As Long
    hw = GetForegroundWindow()
    x = GetWindowText ( hw , TitleText , Len ( TitleText ) )
    GetWindowTitle = Trim ( Left ( TitleText , x ) )
End Function
'

    在此处输入图像描述

    在 Windows 7 SP1 x64 Ultimate 上使用 Dragon NaturallySpeaking 12.5 Professional 和在 Windows 10 Pro 上使用 Dragon Professional Individual 15.6 进行测试。

    • 1
  3. Best Answer

    可以使用AutoHotkey将窗口标题栏的文本复制到剪贴板。它提供了函数WinGetActiveTitle，可以使用如下：

    #z::
WinGetActiveTitle, Title
Clipboard := Title
return
    • 1

相关问题