Проблема с выключением

← →
DimaK © (2003-07-15 08:47) [0]

Подскажите, написал программу, которая сидит в трее и отслеживает состояние сети, но заметил, что когда программа загружена, компьютер не перезагрузается и не выключается. Что можно сделать (или что я такого наделал)?

← →
AbrosimovA © (2003-07-15 09:00) [1]

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

← →
DimaK © (2003-07-15 09:45) [2]

Да, без проблем, пробовал ремарить подозрительные строки (типа проверки повторного запуска) - результат тот же.

← →
Жук © (2003-07-15 09:55) [3]

Можно отлавливать сообщение о завершении сессии и закрывать программу.

← →
Е-Моё имя © (2003-07-15 09:57) [4]

fastnet используешь? вроде у него есть такие траблы, если не путаю

← →
AbrosimovA © (2003-07-15 09:57) [5]

Сделай проверку на выход из Windows для закрытия программы, как в в почтовой программе The Bat. Где-то в факах я уже видел, как это реализуется.

← →
sniknik © (2003-07-15 10:55) [6]

http://delphimaster.net/view/1-1058154496/

← →
a lex (2003-07-15 11:19) [7]

обрабатывай WM_QUERYENDSESSION и не будет проблем

← →
seregin (2003-07-15 11:51) [8]

твоя прога не в трей сворачивается, когда нажимаешься кнопку Close в заголовке?

← →
DimaK © (2003-07-15 12:11) [9]

Кнопки Close у нее нет, на форме обычная кнопка, которая сворачивает в трей.
Можно поподробнее про WM_QUERYENDSESSION

← →
DimaK © (2003-07-15 13:12) [10]

Больше нет соображений?

Вот тебе код и не в чем себе не отказывай :)))

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMSESSION(message: TWMQueryEndSession);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSESSION(message: TWMQueryEndSession);
begin
inherited;
Application.Terminate;
end;

end.

Спасибо :)) только у меня это никакого результата не дало :(

Усе?

Проблема с выключением Найти похожие ветки