MessageBox perlem pod win32

[Pavel Šmerk]

Zdravim vespolek,

je tu nekdo, kdo umi perlem pod win32 vyvolat messagebox?

Zkousim to pres Win32::API, ale nejak mi to nejde:

use Win32::API;

$function1 = new Win32::API("user32", "GetActiveWindow", [], P);
$handle = $function1->Call();

$function = new Win32::API("user32", "MessageBoxA", [P, P, P, N], N);
#$handle = "";
$ahoj = "Ahoj";
$function->Call($handle, $ahoj, $ahoj, 4112);

Kdyz se pokousim aktivni okno zjistit pomoci toho GetActiveWindow, pada
to s Dr. Watsonem, kdyz to vynecham a dam $handle = "", tak to sice
nespadne, ale okno se neobjevi, ani pri jinych hodnotach tech flagu.

Asi delam nejakou trivialni krpu, snad tu s tim nekdo ma zkusenosti.

Diky

P.