Заблокировать "крестик" закрытия программы

[digitalis]

Вот и весь вопрос. Пробовал написать свой обработчик Form1 OnClose, но все равно прога закрывается. Is it possible?

[Аватар]

OnCloseQuery

[Shouldercannon]

procedure TForm27.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;

[digitalis]

Спасибо. Работает. Даже если свернуть и правой кнопкой в выпадающем меню ЗАКРЫТЬ - неубиваемо!
Сначала попробовал - что за черт - не работает. Потом включил бошку: у меня же ехе-шник утренний, новый не создается! Ну как же ему создасться, если он в Автозагрузке прописан и сейчас торчит в трее! Убрал, скомпилил - песня!

[Аватар]

Комп будешь выключать - придется диспетчером убивать. Если убьешь ) Лови WM_QUERYENDSESSION

ЗЫ, нашел тему )

https://programmersforum.ru/showthre...ueryEndSession

[digitalis]

Нет, с этим все в порядке. Это я сделал прожку для борьбы с ленью. Утром до времени, указанного в настроечном файле, прога вырубает принудительно комп, не давая заниматься фигней, а взять в руки метлу-тряпку и наводить в помещении икебану а ля Версаль. Если Т > Т0, она желает успеха и разрешает работать, и я ее сворачиваю в трей кнопкой - (забыл, как это программно делается, ну и фигсим). Бонусом - дополнительная кнопка ВЫКЛЮЧИТЬ КОМП, так что все время работы на компе прога тихо сидит и никому не мешает, и убирать ее ни к чему. А когда надо выключить, я разворачиваю форму и тискаю эту кнопку, как будто кратковременно тиснул кнопку включения - какая разница ?

[northener]

Сообщение от digitalis

Нет, с этим все в порядке.

Честно говоря ничего не понятно, но если вас устраивает, то и нам волноваться не след.

[digitalis]

Что тут непонятного?
Включаю комп, если системное время < заданного в настройке, комп shootdown-ится. Если больше - сворачиваю форму и работаю. Закончить работу - развернул форму и нажал кнопку. 2 в одном: работа по расписанию и кнопка выключения.

var
  Form1: TForm1;
  TTim,DT: double ;
  H,M,T,H0,M0,T0: integer ;
  F1 : Text ;

  stro: string ;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
 AssignFile (F1,'Data.txt') ; // ! ! ! !
   {$I-}
   Reset (F1) ;
   {$I+}
 Readln (F1,stro) ;
 CloseFile (F1) ;
 H0 := StrToInt (Copy(stro,1,2)) ;
 M0 := StrToInt (Copy(stro,4,2)) ;
 T0 := H0 * 60 + M0 ;
 TTim := GetTime ; DT := TTim * 24 ;
 H := Trunc (DT) ;
 M := Trunc((DT-H)* 60) ;
 T := H * 60 + M ;
 if (T<60) or (T>T0) then
   begin
      Label1.Font.Color := clNavy ;
      Label1.Caption := Format ('Удачной работы! %3d',[T-T0])
    end
 else
   begin
      Label1.Font.Color := clRed ;
      Label1.Caption := 'Отключаюсь ! ' ;
      ShellExecute(handle, nil,'shutdown','-f -s -t 0','', SW_SHOWNORMAL) ;
    end ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute(handle, nil,'shutdown','-f -s -t 0','', SW_SHOWNORMAL) ;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;

end.

PS А через диспетчер в случае чего - убивается нормально.

[JUDAS]

Заблокировать "крестик" закрытия программы

Form1.BorderIcons := [];

[digitalis]

Не годится - убираются все 3 кнопки, а мне нужно было убрать только крестик. Вопрос решен.
Сейчас другой дурью мучаюсь: памяти у меня вагон, но сделать бы .exe в безотладочном варианте, компактно. Просто из интересу. Галку Debug information в настройках снял - не помогло, размер не уменьшился.