如何获取 window 引用的应用程序名称

How to get the application name for a window reference

当我获得对 window 的引用时,例如:

tell application "Safari"
    set theWindow to first window
end tell

log(process(theWindow)) -- # Safari

tell application "Terminal"
    set theWindow to first window
end tell

log(process(theWindow)) -- # Terminal

to process(theWindow)
    -- How to get app name from "theWindow"
end process

是否可以从变量theWindow中提取应用名称“Safari”?我需要从处理程序中了解此信息,因为处理程序也可以接受其他应用程序的 window 引用。

tell application "Safari"
    set theWindow to first window
end tell

log (process(theWindow))

tell application "Terminal"
    set theWindow to first window
end tell

log (process(theWindow)) -- # Terminal

to process(theWindow)
    try
        theWindow as text
    on error errorMessage
    end try
    set ATID to AppleScript's text item delimiters
    set AppleScript's text item delimiters to "\""
    set appName to text item 2 of errorMessage
    set AppleScript's text item delimiters to ATID
    return appName
end process