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

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

KOL и завершение Windows 98


avakss ©   (2003-08-07 10:56:00) 

У меня на форме TCPServer и листбокс, как правильно обработать команду завершение работы виндовс и закрыть программу


Кладов   (2003-08-07 19:23:00) [1]

Если вы про компонент, который сделал Воробец, то простой просмотр кода дает метод Disconnect. В сокетах Шахайло тоже можно найти DoClose. Есть же весь исходный текст, неужели трудно пробежать глазами по интерфейсной части - там же всего ничего кода? Лучшая документация к коду - это сам код.


BelchonokH   (2003-08-07 18:09:00) [2]

Попробуй Destroy.


avakss   (2003-08-07 17:11:00) [3]

А какая команда останавливает KOLTCPServer?
Close нет, на Free выдаёт ошибку, а больше я ничего не увидел


Кладов   (2003-08-07 16:48:00) [4]

TCP-сервер наверное остановить надо.


mdw   (2003-08-07 15:06:00) [5]

А если попробовать result:=false; ? Хотя, в принципе, приложение должно и так закрываться (без обработки WM_QUERYENDSESSION)при завершении работы виндовс, если ничего не в это время не выполняется. Посмотри может нужно просто корректно завершить работу программы. На крайняк вызови Halt :))).


avakss   (2003-08-07 14:53:00) [6]

а как правильно обраьотать WM_QUERYENDSESSION?
я пишу

function TForm1.KOLForm1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
 if msg.message=WM_QUERYENDSESSION then
   begin
     result:=true;
     rslt:=1;
     form.close;
  end;
end;

и при выходе из виндовс -- программа выполнила недопустимую операцию


mdw   (2003-08-07 13:45:00) [7]

> как правильно обработать команду завершение работы виндовс
обработать сообщение WM_QUERYENDSESSION

> и закрыть программу
Form.close; или Applet.Close;


Наверх

Титульная страница Поиск, карта сайта Написать письмо