perl/Tk applications will work on Windows, and you can easily bind mouse and keyboard activity to exit the program.

use strict;
use Tk;
my $mw = new MainWindow();
...
$mw->bind("<Motion>",sub { $mw->destroy });
MainLoop;
[download]