Help for this page

Select Code to Download


  1. or download this
    use Win32::Registry;
my $NumTools;
...
IF ($$key[0] eq "NumTools") { $NumTools = $$key[2]; }

}
  2. or download this
    IF ($$key[2] eq "C:\\Tool\\Lint\\Bin\\Lint.exe") {
    print "PC-Lint is already installed";
} ELSE {
  3. or download this
    $Tools->SetValueEx("AskArgument#$NumTools", 0, REG_DWORD, "0");
$Tools->SetValueEx("CloseWindow#$NumTools", 0, REG_DWORD, "0");
...
$NumTools++;
$Tools->SetValueEx("NumTools", 0, REG_DWORD, "$NumTools"); 
}
  4. or download this
    IF ($$key[0] eq "NumTools") { $NumTools = $$key[2]; }

}