Help for this page

Select Code to Download

Select or download this

sub Unpack {
    my $type = $_[0];
...
    DEBUG "(PM)Type::Unpack: returning '$_[1]'\n";  
    return $_[1];
}

Select or download this

$GetSharedMem = Win32::API->new('shmdll', 'int GetSharedMem(int shareI
+ndex,MYBUFFER* lpszBuf, DWORD bufLength)');