Help for this page

Select Code to Download


  1. or download this
    Win32::API::Struct->typedef ( "FILE_INFO", qw(
    WCHAR  Path;
...
    DWORD  Attributes;
    DWORD  Flags;
) );
  2. or download this
    my $pt = Win32::API::Struct->new('FILE_INFO')or die "ERROR: $^E";
new Win32::API('dll',"GetInfo", ['P','P','N'], 'N' ) or die "ERROR: $^
+E";
...

my $test = $APIHandle->Call($FileHandle,$pt,1024)or die "ERROR: $!";