На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
Страницы: (2) 1 [2]  все  ( Перейти к последнему сообщению )  
> Как сделать, чтобы приложение висело?
    Цитата leo @
    Цитата (Anatoly Podgoretsky @ Сегодня, 06:40)
    Откуда application в консольном приложение
    Как обычно, из модуля Forms

    И чего работает, без запуска цикла выборки сообщений и прочего.
      Ну дык, Аpplication.HandleMessage и ProcessMessages это есть выборки сообщений из очереди, а repeat.. соотв-но цикл выборки. А прочее и не нужно, если у нас только два простейших скрытых окна MessageOnly
      Сообщение отредактировано: leo -
        Цитата leo @
        А прочее и не нужно, если у нас только два простейших скрытых окна MessageOnly

        Что за окна?
          Цитата Leklerk @
          Что за окна?

          public Application.Handle и private TTimer.FWindowHandle

          Добавлено
          PS: О том, что TTimer работает "через окно" и оконные сообщения я тебе намекнул еще в #4. Неужели для тебя это неожиданно?
            leo, а как все-таки работает код
            ExpandedWrap disabled
              //uses Windows;
              //var
              //  Msg:TMsg;
              while GetMessage(Msg,0,0,0) do
              begin
                 TranslateMessage(Msg);
                 DispatchMessage(Msg);
              end;

            Сообщения извлекаются из очереди и отправляются? Куда?

            Добавлено
            Цитата Leklerk @
            PS: О том, что TTimer работает "через окно" и оконные сообщения я тебе намекнул еще в #4. Неужели для тебя это неожиданно?

            Я только начал разбираться с сообщениями Windows. До этого не приходилось с ними работать.
            А вообще, при написании программ на Delphi часто приходится иметь с ними дело?

            Добавлено
            Большое спасибо за помощь.

            Добавлено
            Цитата leo @
            private TTimer.FWindowHandle

            А я в хелпнике не нашел такого...
            Сообщение отредактировано: Leklerk -
              И не должен, поскольку private, ищи не в справке, а в исходниках
                Цитата Leklerk @
                Сообщения извлекаются из очереди и отправляются? Куда?

                DispatchMessage передает сообщение в процедуру WndProc того окна, которому адресовано сообщение. В частности, окно таймера имеет простейшую WndProc, которая при получении сообщения WM_TIMER вызывает обработчик OnTimer
                  Большое спасибо за разъяснения! :)
                  В исходниках порылся, все нашел.
                  Сообщение отредактировано: Leklerk -
                  0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0328 ]   [ 16 queries used ]   [ Generated: 6.05.24, 00:07 GMT ]