Hi,
I wrote the following code:
use CGI ':standard';
use Win32;
print header;
$lib='d:\\mydll.dll';
$register=param('register');
if ($register) {
$results=Win32::RegisterServer($lib) ||
print Win32::FormatMessage(Win32::GetLastError());
}
else {
$results=Win32::UnregisterServer($lib) ||
print Win32::FormatMessage(Win32::GetLastError());
}
print $results;
In both cases, register and unregister, the dll is not registered or
unregistered.
The Win32::GetLastError() does not return any errors when unregistering
but
returns "The operation completed successfully" as an error when
registering.
That confused me because it says it was succesfull as an error message and
the dll is not actually registered.
Do you know why this happens?
Thanks in advance,
Mauricio
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
