Re^7: Win32::API::Struct: Pointers of Pointers

in reply to Re^6: Win32::API::Struct: Pointers of Pointers
in thread Win32::API::Struct: Pointers of Pointers

In theory, this should work...but it doesn't.

#! perl -slw
use strict;
use Encode;
use Devel::Peek;
use Win32::API::Prototype;

ApiLink( 'advapi32', q[
    DWORD QueryUsersOnEncryptedFile(
        LPCWSTR lpFileName,
        ULONG pUsers
    )
]) or die $^E;

my $buffer = chr(0) x 4;
print Dump( $buffer );
my $pointer = unpack 'L!', pack 'P', $buffer;

printf "%08x\n", $pointer;

my $uFile = encode( 'UTF-16LE', $_ = $ARGV[ 0 ], 1 );
print $uFile;

QueryUsersOnEncryptedFile(
    $uFile,
    $pointer
) or die "$! : $^E";

print Dump( \$buffer );
print unpack 'C*',$buffer;
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^7: Win32::API::Struct: Pointers of Pointers Download Code

In Section Seekers of Perl Wisdom