While 1
If WinExists("[CLASS:CabinetWClass]") Then
$title=WinGetTitle("[CLASS:CabinetWClass]")
If Not(ControlGetText($title,"","Edit1")="") Then
WinActivate($title)
Send("{F4 2}")
Send("{delete}")
EndIf
EndIf
WEnd
While 1
If WinExists("[CLASS:CabinetWClass]") Then
$title=WinGetTitle("[CLASS:CabinetWClass]")
If Not(ControlGetText($title,"","Edit1")="") Then
ControlSetText($title,"","Edit1","")
EndIf
EndIf
WEnd