Select Code to Download

use Win32::API;
use constant GWL_HINSTANCE => -6;
my $GetWindowLong = Win32::API->new('user32', 'GetWindowLong', ['N', '
+N'], 'N');

my $hinstance =$GetWindowLong->Call($hwnd, GWL_HINSTANCE);