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);
}