Скачать: CL | DM;

нельзя выполнить ShutDown :(   Найти похожие ветки 

← →
Novichok   (2004-02-28 23:18) [0]

Когда запущена моя программа, нельзя выполнить ShutDown или Restart машины, если прогу выключить то все ok, система спокойно выключается. Программа небольшой чат с сокетами. Стал обрабатывать событие OnCloseQuery :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 try // Если не ставить try вылетает ошибка
   Form1.Close;
 except
 end;
end;


Если делать так, то прога закрывается, но завершение работы дальше не продолжается.
Уважаемые мастера что делать ?

---

← →
МАКСЮХА ©   (2004-02-29 10:52) [1]

Я так и думал, что чат:)
Была та - же проблема... попробуй сделать перед выходом глубокий диссконнескт...

---

← →
DDA ©   (2004-02-29 11:53) [2]

Ну наверное раз программа дошла уже до процедуры CloseQuery,
то программы уже закрывается и не стоит закрывать ее ещё раз (Form1.Close)

---

← →
Pashka R. ©   (2004-02-29 12:32) [3]

тебе надо обрабатывать сообщение WM_ENDSESSION и по нему закрывать свою прогу

---
Best regards, Pashka R. <pashka@land.ru>

 ICQ:  860730

---

← →
Pashka R. ©   (2004-02-29 12:37) [4]

сорри, нужно обрабатывать WM_QUERYENDSESSION :)

---
Best regards, Pashka R. <pashka@land.ru>

ICQ:  860730

---

← →
Novichok   (2004-02-29 12:48) [5]

DDA
> уже закрывается и не стоит закрывать ее ещё раз (Form1.Close)
Если не делать Form1.close; то прога вообще не выключается, не после первой не после второй попытки

> МАКСЮХА >попробуй сделать перед выходом глубокий диссконнескт...
ClientSocket1.Destroy ? ClientSocket1.active:=false (так я дклал, не помогло)
Pashka R.
> нужно обрабатывать WM_QUERYENDSESSION :)
Разве это не одно и то же что OnCloseQuery ???

---

← →
Lexer ©   (2004-02-29 12:50) [6]

> DDA ©   (29.02.04 11:53) [2]
> Ну наверное раз программа дошла уже до процедуры CloseQuery,
> то программы уже закрывается и не стоит закрывать ее ещё
> раз (Form1.Close)


ага, надо просто сделать проверку и установить CanClose в True

---

← →
JSilver   (2004-03-03 20:33) [7]

Короче, если хочешь все сам узнать ищи в FAQ или книгах по Делфи тему про завершение винды и как правильно на это реагировать.
   Если приложение активно и вы пытаетесь завершить работу Windows (Shut Down), происходят следующие события (с соблюдением последовательности):
1.FormCloseQuery
2.FormDestroy
Мы видим, что метод FormClose в этом случае не вызывается.

private
{--------------------------------------------------------}
{ Объявляем свой обработчик сообщения WM_QUERYENDSESSION }
{--------------------------------------------------------}
procedure WMQueryEndSession(
var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin

inherited;   { сначала сообщание должен обработать наследуемый метод }
{------------------------------------------------------------}
{ в этой точке вы также можете сообщить Windows о неготовности       }
{ приложения завершить работу...                                     }
{ Message.Result:=0;                                                 }
{--------------------------------------или----------------------}
{ вызов процедуры освобождения ресурсов, предусмотренной в FormClose }
{-------------------------------------------------------------}
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.969 c