MessageBox perlem pod win32

[Rychetský Pavel PharmDr]

Zkuste 

use Win32::API;

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

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

Pavel

> -----Original Message-----
> From: Pavel Šmerk [mailto:xsmerk na fi.muni.cz]
> Sent: Thursday, May 18, 2000 10:01 AM
> To: Multiple recipients of list PERL
> Subject: MessageBox perlem pod win32
> 
> 
> 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.
>