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

← →
avakss (2003-08-07 10:56) [0]

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

← →
mdw © (2003-08-07 13:45) [1]

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

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

← →
avakss (2003-08-07 14:53) [2]

а как правильно обраьотать 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 15:06) [3]

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

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

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

← →
avakss (2003-08-07 17:11) [5]

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

Попробуй Destroy.

← →
Кладов (2003-08-07 19:23) [7]

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

KOL и завершение Windows 98 Найти похожие ветки