/* HippoPlayer - del file
**
** This script parses the filename of the played module and then
** deletes it from the list.
** After that a requester pops up and asks you if you want to
** delete the file from disk too.
**
** Written by Marcel Doering [DonDoringo@GURU.rhein-main.de]
*/

options results

address 'HIPPOPLAYER'

get cnam
CNAM = result

ADDLIB('rexxreqtools.library',0,-30,0)
IF ~EXISTS(cnam) then do
nf=rtezrequest('Couldn`t find 'cnam' !'||'0a'x||'Aborting...','Okay','HiP_copy.rexx',)
exit
end

DEL

del=rtezrequest('Do you want to delete 'cnam' ?','Yes|No','HiP_copy.rexx','rtez_defaultresponse = 0',)
if del=1 then
address command 'delete 'cnam''

EXIT