| … | |
… | |
| 17 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
17 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
| 18 | } |
18 | } |
| 19 | |
19 | |
| 20 | require Win32::GUI::SplashScreen; |
20 | require Win32::GUI::SplashScreen; |
| 21 | |
21 | |
|
|
22 | Win32::GUI::SplashScreen::Show ( |
|
|
23 | -file => "$ENV{PAR_TEMP}/SPLASH.bmp", |
|
|
24 | ); |
|
|
25 | |
| 22 | # initialise the resolver now, as vista forces us back to the desktop |
26 | # initialise the resolver now, as vista forces us back to the desktop |
| 23 | # when doing this. |
27 | # when doing this later. |
| 24 | use AnyEvent::DNS (); |
28 | use AnyEvent::DNS (); |
| 25 | AnyEvent::DNS::resolver; |
29 | AnyEvent::DNS::resolver; |
| 26 | |
|
|
| 27 | Win32::GUI::SplashScreen::Show ( |
|
|
| 28 | -file => "$ENV{PAR_TEMP}/SPLASH.bmp", |
|
|
| 29 | ); |
|
|
| 30 | |
30 | |
| 31 | $startup_done = sub { |
31 | $startup_done = sub { |
| 32 | Win32::GUI::SplashScreen::Done (1); |
32 | Win32::GUI::SplashScreen::Done (1); |
| 33 | }; |
33 | }; |
| 34 | } |
34 | } |
