Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  14:55[Войти] | [Зарегистрироваться]
Ответ на вопрос № 57161

22-11-2007 05:06
У меня проблема следующего характера
Прога при отключении питания не может выгрузиться, притом событие FormCloseQuery проходит, а на FormClose уже нет. FormCloseQuery у меня не используется, просто вставлял beep, чтобы понять где пропадает собщение... А при нажатии на "х" все срабатывает... Да и через диспетчер задач снимается.... А вот при выключении компьютера никак не хочет закрываться... В чем может быть проблема? Заранее благодарен...
Компилятор Delphi7

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

22-11-2007 10:44
Спасибо!

22-11-2007 10:40
Можно даже так:

procedure TVSSComm32.CommWndProc( var msg: TMessage );
begin
  case msg.msg of
    PWM_GOTCOMMDATA:
      begin
        ReceiveData( PChar(msg.LParam), msg.WParam );
        LocalFree( msg.LParam );
      end;

    PWM_REQUESTHANGUP:
      RequestHangup;
     
  else
    with msg do
      Result := DefWindowProc( FHWnd, Msg, wParam, lParam);
  end;
end;


22-11-2007 09:57 | Сообщение от автора вопроса
Спасибо, действительно разумнее исправить компонент, чем обходить ошибку кривым способом... Обязательно воспользуюсь вашим советом!

22-11-2007 09:50 | Комментарий к предыдущим ответам
Нашел TVSSComm32.CommWndProc


procedure TVSSComm32.CommWndProc( var msg: TMessage );
begin
  case msg.msg of
    PWM_GOTCOMMDATA:
      begin
        ReceiveData( PChar(msg.LParam), msg.WParam );
        LocalFree( msg.LParam );
      end;

    PWM_REQUESTHANGUP:
      RequestHangup;
  end;
end;



Исправленный вариант:


procedure TVSSComm32.CommWndProc( var msg: TMessage );
begin
  case msg.msg of
    PWM_GOTCOMMDATA:
      begin
        ReceiveData( PChar(msg.LParam), msg.WParam );
        LocalFree( msg.LParam );
      end;

    PWM_REQUESTHANGUP:
      RequestHangup;
     
      // If next line is not present, the shutdown/logoff on NT will fail,
      // since the hidden window/component cannot be shut down
    WM_QUERYENDSESSION:
      msg.Result := Ord(True);
  else
      // If the next line is not present, some messages will be discarded, causing
      // our app to be non-responsive in some cases.. at least, with my app
    with msg do
      Result := DefWindowProc( FHWnd, Msg, wParam, lParam);
  end;
end;


22-11-2007 09:45 | Вопрос к автору: запрос дополнительной информации
FreeAndNil(VSSCOmm321)
В какой обработчик???

Этот компонент использовал AllocateHWnd, и видимо не корректно
Чтобы ответить на этот вопрос, надо посмотреть на CommWndProc.

22-11-2007 09:37 | Сообщение от автора вопроса
Все!!!! Заработало!!!
Поставил в обработчик строку

FreeAndNil(VSSCOmm321);


Этот компонент использовал AllocateHWnd, и видимо не корректно
Значицца, я его грохаю в FormCloseQuery и дело с концом. Выгружается как миленький!

Всем СПАСЫБА!!!!

22-11-2007 09:31 | Вопрос к автору: запрос дополнительной информации
Интересен код CommWndProc.

22-11-2007 09:24 | Сообщение от автора вопроса

constructor TVSSComm32.Create( AOwner: TComponent );
begin
           inherited Create( AOwner );
           FCommPort := 1;
           {FCommsLogFileName := '';}
           CommsLogName := '';
           ReadThread := nil;
           WriteThread := nil;
           hCommFile := 0;
           if not (csDesigning in ComponentState) then
                     FHWnd := AllocateHWnd(CommWndProc);
end;

destructor TVSSComm32.Destroy;
begin
           if not (csDesigning in ComponentState) then
           begin
                     DeallocateHWnd(FHwnd);
           end;
           inherited Destroy;
end;



Это конструктор и деструктор компонента ком порта в этой проге
Используется AllocateHWnd

22-11-2007 09:17
Когда окно показывается - трей уже освобождается, и его нет. Но даже в этом состоянии прога кочевряжется... Может быть, какие-то другие компоненты мешают закрытию приложения?

22-11-2007 09:13 | Сообщение от автора вопроса


var  IconData : TNotifyIconData;
....

function TForm1.CreateTray: Boolean;
begin
  Result:=CheckBox4.Checked;
  if Result then
  begin
    IconData.cbSize := sizeof(IconData);
    IconData.Wnd := Handle;
    IconData.uID := 100;
    IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    IconData.uCallbackMessage := WM_USER + 1;
    IconData.hIcon := Application.Icon.Handle;
    StrPCopy(IconData.szTip, Application.Title);
    Shell_NotifyIcon(NIM_ADD, @IconData);
  end
end;
//Обработчики PopupMenu1:
procedure TForm1.Open1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @IconData);
Form1.Show;
ShowWindow(Application.Handle, SW_NORMAL);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @IconData);
Application.ProcessMessages;
Application.Terminate;
end;
// переместил в CloseQuery, но без результатов...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not CheckBox4.Checked then
  Shell_NotifyIcon(NIM_DELETE, @IconData);
SaveIni; // копеешная процедурка для сохранения инишника
end;
// еще конструктор;
constructor TForm1.create(AOwner: TComponent);
begin
inherited Create(AOwner);
v:=Valuts.Create;
LastTim:=LastModify;
TsToV;
if v.SentStart then
Button1.Click;

end;



Это все, что связано с треем

22-11-2007 08:42 | Комментарий к предыдущим ответам
У DRON-а телепатор более скоростной оказался :-D

22-11-2007 08:40
У меня была однажды такая же проблема. У программы был значок в трее, но завершение работы системы обламывалось - программа не закрывалась и продолжала работать. Тоже думал, что форма не правильно обрабатывает WM_QUERYENDSESSION, но дело оказалось не в этом. Я использовал сторонний компонент для работы с tray-ем, который создавал message-only окошко. Оно также получало сообщение WM_QUERYENDSESSION, будучи окном верхнего уровня. Завершение работы происходит только в том случае, когда все окна обработав сообщение вернули TRUE, (для этого рекомендуется просто вызывать DefWindowProc в оконной функции), а в том компоненте в оконной функции вместо

Message.Result:=DefWindowProc(Wnd,Message.Msg,Message.wParam,Message.lParam);


была строчка

DefWindowProc(Wnd,Message.Msg,Message.wParam,Message.lParam);


Забывали просто Message.Result в true выставить... Может у вас подобный случай? Не используете ли вы сторонние компоненты, которые создают Message-only окошки посредством AllocateHwnd?

22-11-2007 08:31 | Вопрос к автору: запрос дополнительной информации
Компоненты типа "иконка в трее" используются?

22-11-2007 08:31
Ну так а мне как закрыть приложение?
Если можете, перенесите сохранение важных данных из OnClose в OnCloseQuery.
Только не стоит делать там (в OnCloseQuery) что-то длительное.

Как вариант еще попробуйте в OnDestroy.

22-11-2007 08:24 | Сообщение от автора вопроса
Ну так а мне как закрыть приложение?
Close а обработчике CloseQuery не катит...
Простите за назойливость, но просто башка уже не варит...

22-11-2007 08:09
Значит проблема в CallTerminateProcs
При чем здесь CallTerminateProcs???

При завершении работы Windows форма вызывает CloseQuery в обработчике сообщения WM_QUERYENDSESSION (OnClose при этом не вызывается).

22-11-2007 08:05

procedure TCustomForm.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  Message.Result := Integer(CloseQuery and CallTerminateProcs);
end;


Значит проблема в CallTerminateProcs ?

Буду рыть....

22-11-2007 07:24 | Вопрос к автору: запрос дополнительной информации
Я писал CanClose:=True   
Никакого эффекта, что в принципе и понятно, так как справедливо замечено, что CanClose по умолчанию True
У меня есть еще обработчики событий, но и без них такая же фигня.

  private
    procedure WndProc(var Msg : TMessage); override;
    procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
  public
  destructor destroy; override;



....


destructor TForm1.destroy;
begin
  v.Destroy;
  inherited;
end;

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then
if CreateTray then
  begin
  Form1.Hide;
  ShowWindow(Application.Handle, SW_HIDE);
  Exit;
  end;
inherited;
end;

procedure TForm1.WndProc(var Msg : TMessage);
var
p : TPoint;
begin
case Msg.Msg of
  WM_USER + 1:
  case Msg.lParam of
  WM_RBUTTONDOWN:
    begin
    GetCursorPos(p);
    PopupMenu1.Popup(p.x, p.y);
    end
  end;
end;
inherited;
end;


22-11-2007 07:18
В чем разница между этими запросами
При завершении работы Windows форма вызывает CloseQuery в обработчике сообщения WM_QUERYENDSESSION (OnCloseпри этом не вызывается):


procedure TCustomForm.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  Message.Result := Integer(CloseQuery and CallTerminateProcs);
end;


При "обычном" закрытии формы вызывается метод Close (в нем уже вызываются  OnCloseQuery и OnClose).

22-11-2007 07:08 | Сообщение от автора вопроса
Что самое противное, я не могу отследить место, где трабла. При выклюсении питания Delphi сразу хочеть сделать Terminate. А при штатном закрытии на "х" все хорошо работает... В чем разница между этими запросами?

22-11-2007 06:55 | Комментарий к предыдущим ответам
CanClose := True
Да CanClose по умолчанию и так True.

22-11-2007 06:55
в OnFormCloseQuery кроме Beep добавь еще строчку:
CanClose := True;


Borland уже добавил :)

22-11-2007 06:42
в OnFormCloseQuery кроме Beep добавь еще строчку:
CanClose := True;

22-11-2007 05:39
Так и задумано Borland'ом - используй OnCloseQuery.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Какой месяц идет после марта?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования