UDF Serial Sendkey Resource Lock

Keywords: 	 UDF Serial sendkey lock  serial resource lock

---

#DefineFunction WAITSendKeysTo(w,k)

;Get Serial Resource Lock
while 1
   ErrorMode(@off)
   handle=FileOpen("C:\serial.lock","WRITE")
   ErrorMode(@cancel)
   if handle !=0 then break
   TimeDelay(1)
endwhile


SendKeysTo(w,k)

;Free Serial Resource Lock
FileCLose(handle)
return (1)
#EndFunction

---

Article ID:   W15320