Не завершает работу программа

← →
romychk (2003-12-02 11:02) [0]

Не завершает работу программа при выключении компютера,
в онСлосе ОпCloseQuery ничего нет в программе такие компоненты;

Panel1: TPanel;
Memo3: TMemo;
Memo2: TMemo;
Memo1: TMemo;
ToolBar1: TToolBar;
ToolButton1SendList: TToolButton;
ToolButton2SendTelegram: TToolButton;
ToolButton3ListWindows: TToolButton;
ToolButton4PoverOff: TToolButton;
ToolButton5Reset: TToolButton;
ToolButton6BlokKlav: TToolButton;
ToolButton7OffMon: TToolButton;
ToolButton8OnMon: TToolButton;
StringGrid1: TStringGrid;
Timer2: TTimer;
Timer1: TTimer;
NMUDP1: TNMUDP;
ServerSocket1: TServerSocket;
ClientSocket1: TClientSocket;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
ImageList1: TImageList;
Panel2: TPanel;
ListBox1: TListBox;
ToolBar2: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList2: TImageList;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton18: TToolButton;
Label1: TLabel;
ToolButton23: TToolButton;
ToolButton24RozblKlav: TToolButton;
ToolButton25ExtractCDROM: TToolButton;
ToolButton17ScreenSaver: TToolButton;
ToolButton1KillAllProcess: TToolButton;
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
RxTrayIcon1: TRxTrayIcon;
RxPopupMenu1: TRxPopupMenu;
ii1: TMenuItem;
N7: TMenuItem;
i1: TMenuItem;
ToolBar3: TToolBar;
ToolButton1: TToolButton;
ImageList3: TImageList;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Timer3: TTimer;
Timer4: TTimer;
SaveDialog1: TSaveDialog;
NMStrm1: TNMStrm;
NMStrmServ1: TNMStrmServ;

← →
Думкин © (2003-12-02 11:08) [1]

Наверное у тебя ошибка в программе.

← →
Amoeba (2003-12-02 11:11) [2]

Ага! Причем в 17-й строке.

← →
Silver Alex © (2003-12-02 11:12) [3]

> Не завершает работу программа

а что именно происходит?

← →
Dimka Maslov © (2003-12-02 11:17) [4]

NMStrmServ запускает поток, который и не даёт перезагружаться. Глуши его в OnClose, тогда вероятность невыключения упадёт

← →
Anatoly Podgoretsky © (2003-12-02 11:31) [5]

Убери НМ компоненты

← →
romychk (2003-12-02 11:44) [6]

Ничего просто не выключается и все некоторые программы могут быть выгружены, я думаю как и Dimka Maslov что не "останавливаются" компоненты, но как остановить NMStrmServ я не знаю?

← →
romychk (2003-12-02 11:47) [7]

Они мне нужны :(

← →
Семен Сорокин © (2003-12-02 11:48) [8]

Не завершает работу программа при выключении компютера
а просто при закрытии нормально закрывается?

← →
romychk (2003-12-02 14:13) [9]

да!

вот это
NMUDP1: TNMUDP;
вешает перезагрузку, завершение виндов в запущеном состояниию
обрабатывай сообщение WM_QUERYENDSESSION (по нему можно все зарубить :) примеры в справке.

← →
romychk (2003-12-05 11:17) [11]

Извините, что надоедаю, ноя не смог найти примера обработки WM_QUERYENDSESSION, может кто скинет ссылочку :)

пример
procedure OnCloseSession(var Mess: TMessage); message WM_QUERYENDSESSION;

procedure TMainForm.OnCloseSession(var Mess: TMessage); //WM_QUERYENDSESSION
begin
try
inherited;
if ChActive then StartServer(false, false);
Destroy;
except
end;
end;

← →
romychk (2003-12-05 11:39) [13]

Большое спасибо сейчас попробую :)

Не завершает работу программа Найти похожие ветки