Help for this page

Select Code to Download


  1. or download this
    # Old Skool calls
use Win32::API;
...
my $buffer = "\0" x 300;
my $length = $getwindir->Call($buffer, length $buffer);
print substr $buffer, 0, $length;
  2. or download this
    # New Skool calls ($Win32::API::VERSION >= 0.40)
use Win32::API;
...
my $buffer = "\0" x 200;
my $length = $getwindir->Call($buffer, length $buffer);
print substr $buffer, 0, $length;