You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
608 B
25 lines
608 B
#!perl |
|
|
|
use File::Find; |
|
use Win32::API; |
|
|
|
find(\&ProcessFile, "../../../game/bin/" ); |
|
|
|
sub ProcessFile |
|
{ |
|
return if (/360/); |
|
return unless( /\.dll$/i ); |
|
my $LoadLibrary = Win32::API->new( "kernel32", "LoadLibrary","P","L" ); |
|
my $GetProcAddress = Win32::API->new( "kernel32", "GetProcAddress","LP","L" ); |
|
my $FreeLibrary = Win32::API->new( "kernel32", "FreeLibrary", "P", "V" ); |
|
my $handle=$LoadLibrary->Call($_); |
|
if ( $handle ) |
|
{ |
|
my $proc = $GetProcAddress->Call($handle, "BuiltDebug\0"); |
|
if ( $proc ) |
|
{ |
|
print "Error $_ is built debug\n"; |
|
} |
|
$FreeLibrary->Call( $handle ); |
|
} |
|
}
|
|
|