procedure TForm1.Timer1Timer(Sender: TObject);
var
s: array [0..255] of char;
begin
GetClassName(GetForegroundWindow, s, length(s));
if UpperCase(s) = 'WINDOWSSCREENSAVERCLASS'
then beep;
end;
email: delphi4all@narod.ru
Определить, запущен ли ScreenSaver |
ОГЛАВЛЕНИЕ HOME MAIL |
Класс окна ScreenSaver-а должен иметь имя WINDOWSSCREENSAVERCLASS. Эта программа определяет каждую секунду имя активного окна. Если запущен хранитель экрана, то программа выдает звуковой сигнал.procedure TForm1.Timer1Timer(Sender: TObject);
var
s: array [0..255] of char;
begin
GetClassName(GetForegroundWindow, s, length(s));
if UpperCase(s) = 'WINDOWSSCREENSAVERCLASS'
then beep;
end;
email: delphi4all@narod.ru | |