a1="This WBT file is designed to assist in determining"
a2="the correct WDF File name to use with WinMacro."
a3="Sometimes, some programs are actually loader programs"
a4="for the 'real' application.  WinMacro (and also the"
a5="WinBatch AppWaitClose/AppExist functions) needs to know"
a6="actual exe/wdf names.  This WBT file will display the"
a7="Actual EXE and WDF names."

text=strcat(a1,@crlf,a2,@crlf,a3,@crlf,a4,@crlf,a5,@crlf,a6,@crlf,a7)
Message("EXE/WDF Finder",text)

text="Put mouse over Window to determine exe/wdf file.%@crlf%Hold Shift Key down to quit the EXE/WDF finder."

      
       
   BoxOpen("EXE / WDF FILE FINDER","")
   While @TRUE     ; Loop forever and ever
           if IsKeyDown(@SHIFT) then break
           WinActivate("")
           a=MouseInfo(1)
           exe=WinExeName(a)
           exe2=strcat(FileRoot(exe),".",FileExtension(exe))
           wdf=FileRoot(exe)
           wdf=strcat(wdf,".WDF")
           BoxText(strcat(text,@crlf,@crlf,"EXE = ",exe2,@crlf,"WDF = ",wdf))
           Delay(1)
   endwhile
   exit






