Perl Win32::API call WaitForMultipleObjects

Norret — Fri, 13 Feb 2009 10:24:28 GMT

Ich versuche gerade verzweifelt die Funktion WaitForMultipleObjects aus der kernel32.dll in ein Perl Script zu importieren, was aber scheinbar nicht geht, da der Call sofort mit -1 retuniert.

our $dllWaitForMultipleObjects;
sub WaitForMultipleObjects($@$$){
my($nCount,@hHandles,$bWaitAll,$dwWaitTimeout) = @_;
if(not defined $dllWaitForMultipleObjects) { $dllWaitForMultipleObjects = new Win32::API('kernel32', 'WaitForMultipleObjects', 'IIII', 'I'); }
if(not defined $dllWaitForMultipleObjects) { die "Can't import API WaitForMultipleObject: $!\n"; }
return $dllWaitForMultipleObjects->Call($nCount,\@hHandles,$bWaitAll,$dwWaitTimeout);
}

So schaut die Import Funktion grundsätzlich aus, wobei ich mir mit dem Array absolut nicht sicher bin. Aufrufen tu ich das ganze folgendermaßen:

my @handles;
push(@handles,MyCreateProcess(0,0x12,"C:\\irgendwas.exe"));

my $ret = WaitForMultipleObjects(1,@handles,1,10000);
print $ret;