Скачать: CL | DM;

Получение AppMessage() неактивным приложением   Найти похожие ветки 

← →
EthernalWonderer   (2003-04-03 15:35) [0]

Приведённый код перестаёт работать, если в момент срабатывания ScreenSaver"а фокус ввода находится на другом приложении:

Type
TForm1
...
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
End;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.wParam = SC_SCREENSAVE) then // какие-то действия
end;

Как 100% отловить SC_SCREENSAVE?
Есть ли какой-нибудь аналог RegisterHotKey для системных событий?

---

← →
DVM ©   (2003-04-03 15:42) [1]

Хуком?

---

← →
EthernalWonderer   (2003-04-03 15:43) [2]

Ой! а без dll никак?

---

← →
EthernalWonderer   (2003-04-04 12:06) [3]

Господа, есть ли более простое решение?

---

← →
EthernalWonderer   (2003-04-08 13:49) [4]

Аа-уу! Мастера-а! Посоветуйте что-нибудь!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c