| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Активация программы

Leviathan ©   (2002-07-18 13:32:00) 

Если моя программа неактивна, можно ли ее активировать независимо от пользователя? Если да, то как?

---

HiMen   (2002-09-03 10:15:00) [1]

спасибо

---

Eugene Lachinov   (2002-07-18 13:37:00) [2]

Пример активизации по таймеру

procedure TForm1.Timer1Timer(Sender: TObject);
var
hForeGround : HWnd;
begin
hForeGround := GetForegroundWindow;
AttachThreadInput(GetWindowThreadProcessId(hForeGround, nil),
GetWindowThreadProcessId(Handle, nil), True);
SetForegroundWindow(Handle);
end;

---

Наверх