Windows Systemevents mit Win32::Event (Fragen zu Perl-Modulen)

[thread]13053[/thread]

Windows Systemevents mit Win32::Event

Leser: 2

LordP

2009-01-26 12:46

User since
2009-01-21
11 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich möchte gerne auf Windows XP Systemevents auslösen. Dazu habe ich Win32::Event gefunden. Allerdings bin ich zu blöd das Event abzusetzen. Mein Code bisher sieht so aus:

Code (perl): (dl )

use strict;
use warnings;
use Win32::Event;

my $event = Win32::Event->new(0,0,'WM_SETTINGCHANGE');
$event->pulse;

Wenn ich jetzt mit Spy++ aus dem Visual Sudio das Event WM_SETTINGCHANGE überwache und das Skript laufen lasse, passiert nichts. Kann mir jemand sagen, was ich falsch mache?

Viele Grüße,
LordP

LordP

2009-01-27 15:57

User since
2009-01-21
11 Artikel
BenutzerIn
[default_avatar]

Ich habe es jetzt geschafft, die Message abzusetzen. Das ging allerdings etwas anders als erwartet:

Code (perl): (dl )

1
2
3

use Win32::OLE::NLS;

Win32::OLE::NLS::SendSettingChange();

Leider hat's nicht den erwünschten Erfolg gebracht. Eigentlich wollte ich ja, dass das Environment aus der Registry neu gelesen wird. Vielleicht hat ja hier jemand einen Tipp für mich, wie das geht, obwohl das ganze dann u.U. perlmäßig etwas offtopic wird.

Viele Grüße,
LordP

View all threads created 2009-01-26 12:46.