MessageBox perlem pod win32

[Honza Pazdziora]

On Thu, May 18, 2000 at 10:00:25AM +0200, Pavel Šmerk wrote:
> 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.

A jsou ty parametry opravdu dobre? To je jedine, co mne tak napada.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------