Mmmhhh, das ist komisch...
Ich habs jetzt so gemacht:
Delphi-Quellcode:
procedure TForm1.PowerBroadcast(var msg: TMessage);
var i: integer;
begin
if (msg.WParam = PBT_APMRESUMECRITICAL)
or (msg.WParam = PBT_APMRESUMESUSPEND)
or (msg.WParam = PBT_APMRESUMESTANDBY)
then begin
for i := 1 to 10 do begin
messagebeep(0);
sleep(1000);
end;
messagebeep(16);
end;
end;
und beim hochfahren aus dem Stanby sehe ich dann den Login-Bildschirm. Während dieser angezeigt wird piept es 8 mal im Sekundentakt. Anscheinend funktionieren die ersten 3 schleifendurchläufe nicht richtig. Und wenn ich in dieser "Startphase" das Netwerk überprüf funktionierts nicht, danach aber anscheinend schon...
@jaenicke
sorry, an diesen unterschied zwischen eingeloggt und Arbeitsstation gesperrt hab ich gar nicht gedacht...
Aber das Problem ist, wenn ich auf WTSRegisterSessionNotification (anstatt auf PowerBroadcast) reagiere und jemand hat eingestellt, dass nach dem Standyby die Arbeitsstation nicht gesperrt ist, dann bekommt mein Programm es ja gar nicht mehr mit, wenn ich nach dem Standby wieder hochfahre, oder?