winapi прога на delphi, нужен совет(?) Опции

[-=@L!=-]

Есть окно, которое прячется в трей. Надо посылать окну горячую клавишу.
Написана прога, которая это делает.
Сценарий:
Показать окно в фоне
Послать клавишу
Скрыть окно
Не устраивает только одно - высокая загрузка процессора в момент работы проги.
Эти процедуры повторяются каждые 5 секунд.
Есть ли другой способ сделать то же самое?
Подробней:
Есть FlashGet. В списке закачек 100 файлов.
3 качаются, 97 на "стрёме"(ждут пока сольются эти 3).
Как только дисконнект, так все те, что были на стрёме, покрываются "слоем" крестиков, т.е. качаться они уже не будут. Те 3 так и долбятся, ожидая коннекта.
Было принято решение написать прогу, которая шлёт окну плешьгета клавишу F8 (закачать всё).
Ну а дальше вы уже знаете.
--
Кто что скажет?
--
А ещё неплохо было бы темы свои разрешить переименовывать.

[linden]

На VB за 5 минут такое написать мона =) причем без всяких дополнительных контролов, activeX и прочей ерунды =)

[-=@L!=-]

Ну как бы... Прога уже есть. Весит ~10 килов, ничего не требует.
Вопрос в том, чтобы сделать такое же, но без показа окна(или как угодно, но чтоб не "дёргался" проц).

[-=@L!=-]

Видимо, никак.

[ismolnik]

\\Эти процедуры повторяются каждые 5 секунд.
Есть ли другой способ сделать то же самое?
Подробней:
Есть FlashGet. В списке закачек 100 файлов.
3 качаются, 97 на "стрёме"(ждут пока сольются...

пришли прогу

[PINguin]

Sign 0f Misery вам поможет.
И без программирования и без геммороя.

[mars]

Вопрос в том, чтобы сделать такое же, но без показа окна(или как угодно, но чтоб не "дёргался" проц).

Вариант1 (в Дельфи 7):
View -> Project Manager (Ctrl+Alt+F11).
Щёлкаем плюс рядом с Project1.exe,
потом правой кнопкой по Unit1 -> Remove From Project -> Yes. (это чтоб окна не было)
Далее правой кнопкой по Project1.exe -> View Source.
Теперь стираем строчки Application.Initialize и Application.Run.
В секцию Uses добавляем: Windows.
Теперь можно спокойно писать на WinApi.

Вариант2:
зачем форму показывать?
Просто по таймеру посылаем сообщение нужному окну:

Код

procedure Form1.OnTimer(Sender: TObject);
var
  hWindow: HWnd;
begin
  hWindow := FindWindow('<window class>', '<window title>');
  PostMessage(hWindow, WM_KEYDOWN, VK_F8, 1);
  PostMessage(hWindow, WM_KEYUP, VK_F8, 1);
end;

Разумеется можно написать поаккуратнее, у меня очень коряво.
ПРЕДУПРЕЖДАЮ: может и не сработать, я не проверял.
А вообще, см. help по winapi (идёт в комплекте с Delphi).

Сообщение отредактировал mars - Feb 2 2007, 01:12