in reply to Re^5: Win32::API::Struct: Pointers of Pointers
in thread Win32::API::Struct: Pointers of Pointers
that's what i mean. it is a pointer of a pointer. The function alloactes the needed memory itself. here is the prove
i think i have to switch to XS at this point.sub query_users { my ( $self, $filename ) = @_; my $func = import_api( 'advapi32', 'QueryUsersOnEncryptedFile', 'P +P', 'N' ); die "Could not import API QueryUsersOnEncryptedFile: $!" unless defined $func; $filename = make_unicode( File::Spec->canonpath($filename) ); + my $ptr = " " x 4; # 4 == sizeof(void*) my $result = $func->Call( "$filename", $ptr ); print "result: $result\n"; return undef if $result; my $address = unpack( "L*", $ptr ); printf("0x%08x\n", $address); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^7: Win32::API::Struct: Pointers of Pointers
by BrowserUk (Patriarch) on Jun 29, 2006 at 18:44 UTC |
In Section
Seekers of Perl Wisdom