This 2nd way using Import to create a sub instead of an object is slightly faster than doing ->Call(). Starting from version 0.40, you can also avoid creating a Win32::API::More object and instead automatically define a Perl sub with the same name of the API function you're importing. You can now use the new() function of the Win32::API module to create a new Win32::API::More object (see "IMPORTING A FUNCTION") and then invoke the Call() method on this object to perform a call to the imported API (see "CALLING AN IMPORTED FUNCTION"). To use this module put the following line at the beginning of your script: use Win32::API The possibilities are nearly infinite (but not all are good :-). The use statement remains as use Win32::API. Win32::API initiated objects are deprecated due to numerous bugs and improvements, use Win32::API::More now. Win32::API::More->Import("kernel32", "int GetCurrentProcessId()") same as Perl's internal $$): use Win32::API The current version of Win32::API is always available at your nearest CPAN mirror: Ī short example of how you can use this module (it just gets the PID of the current process, eg. In fact, parameters input and output is limited to simpler cases.Ī regular XS extension is always safer and faster anyway. Note, however, that this module can't do everything. With this module you can import and call arbitrary functions from Win32's Dynamic Link Libraries (DLL) or arbitrary functions for which you have a pointer (MS COM, etc), without having to write an XS extension. # Method 5: with Import (slightly faster than ->Call) # Method 4: with parameter list and your function pointer
Undef, 38123456, 'int name_ignored(int a, int b)'ĭie "Error: $^E" if ! $function #$^E is non-Cygwin only # Method 2: with prototype and your function pointer 'mydll', 'int sum_integers(int a, int b)'ĭie "Error: ".(Win32::FormatMessage(Win32::GetLastError())) if ! $function Win32::API - Perl Win32 API Import Facility SYNOPSIS # Method 1: with prototype IMPORTING A FUNCTION WITH A PARAMETER LIST.
0 kommentar(er)
