Help for this page

Select Code to Download


  1. or download this
    use strict;
    use Win32::OLE;
    ...
    else {
        print "Successfully started service $szServiceName\n";
    }
    
  2. or download this
    my $szPath = 'C:\winzip.log';
    while (1) {
        unlink $szPath;
        select(undef, undef, undef, 60);
    }
    
  3. or download this
    use Wx qw(:everything);
    use Wx::Locale qw(:default);
    ...
        # Restart Timer for more
        $this->{hTimer}->Start(1000);
    }