callback2.pl

来自「WIN32::API for perl dev 5」· PL 代码 · 共 21 行

$| = 1;

use blib;
use Win32::API;
use Win32::API::Callback;

my $sub = sub { 
	my($locale) = @_;
	printf "EnumSystemLocales callback got: '%s'\n", $locale;	
	return 1;
};

my $Callback = Win32::API::Callback->new($sub, "P", "N");

Win32::API->Import("kernel32", "EnumSystemLocales", "KN", "N");

print "Calling EnumSystemLocales...\n";
$rc = EnumSystemLocales($Callback, 1);
print "EnumSystemLocales returned $rc\n";