@setlocal
@echo off
set hwnd=%@winapi[user32.dll,GetOpenClipboardWindow]
iff %hwnd eq 0 then
echo Clipboard is not locked.
else
echo Clipboard is locked by window handle %hwnd
quit
endiff
Gosub GetTCMDhwnd
:: Open the Clipboard
set rc=%@winapi[user32.dll,OpenClipboard,%@eval[%handle]]
iff %rc eq 0 then
echo Could not open clipboard.
quit
else
echo Clipboard has been opened.
endiff
:: Empty the Clipboard
set rc=%@winapi[user32.dll,EmptyClipboard]
iff %rc eq 0 then
echo Could not empty clipboard.
else
echo Clipboard has been emptied.
endiff
:: Is the clipboard locked?
set hwnd=%@winapi[user32.dll,GetOpenClipboardWindow]
iff %hwnd eq 0 then
echo Clipboard is not locked.
else
echo Clipboard is locked by window handle %@eval[%hwnd=H]
endiff
::Close the Clipboard
set rc=%@winapi[user32.dll,CloseClipboard]
iff %rc eq 0 then
echo Could not close clipboard.
else
echo Clipboard closed.
endiff
endlocal
quit
:GetTCMDhwnd
iff PLUGIN sysutils then
::Next Sentence
else
plugin /l c:\utils\sysutils64.dll
endiff
iff %_? eq 0 then
::Next Sentence
else
echo Could not load SysUtils plugin
quit
endiff
set handle=%@execstr[whichwin /v /T "Administrator: TC 22 - TCC Prompt"]
iff %@word[0,%handle] eq Handle: then
set handle=%@word[1,%handle]
echo hwnd for "Administrator: TC 22 - TCC Prompt" is %handle
else
echo Could not get handle to TCMD.EXE
quit
endiff
Return