HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 604 из 677 « Первая < 104504554594 600 601 602 603 604 605 606 607 608 614654 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #6031  
Старый 06.04.2010, 19:49
Den37
Новичок
Регистрация: 05.03.2009
Сообщений: 14
Провел на форуме:
318673

Репутация: 0
По умолчанию
код не работает, закрывает!
 
Ответить с цитированием

  #6032  
Старый 06.04.2010, 20:31
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
Отправить сообщение для fenixelite с помощью ICQ
По умолчанию
SkyLine32, не прокатит. Он закроет быстрее чем проверит, что нажато ))
 
Ответить с цитированием

  #6033  
Старый 06.04.2010, 20:40
TrueBit
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290

Репутация: 29
По умолчанию
CanClose := False;
 
Ответить с цитированием

  #6034  
Старый 06.04.2010, 21:23
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
Отправить сообщение для fenixelite с помощью ICQ
По умолчанию
Упп, не много ошибся. Все таки код SkyLine32 работает. Лично проверил.
Код:
 if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
 
Ответить с цитированием

  #6035  
Старый 06.04.2010, 22:35
[stranger]
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028

Репутация: 28
Отправить сообщение для [stranger] с помощью ICQ
По умолчанию
Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    canclose := false;
end;
 
Ответить с цитированием

  #6036  
Старый 07.04.2010, 06:15
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
Отправить сообщение для fenixelite с помощью ICQ
По умолчанию
Да canclose не прокатит. Тогда это не только Alt+F4 блочить будет, а любой закрытие.
 
Ответить с цитированием

  #6037  
Старый 07.04.2010, 06:27
JnK
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563

Репутация: 52
По умолчанию
Цитата:
Сообщение от fenixelite  
Да canclose не прокатит. Тогда это не только Alt+F4 блочить будет, а любой закрытие.
Проверку по флагу можно сделать, если было нажато ALT+F4 тогда флаг False иначе True; Но автору вопроса кажется и надо, что бы процесс никак нельзя было прибить.

Цитата:
Сообщение от Den37  
Как можно сделать на delphi так, что бы нельзя было закрыть программу ни чере alt+f4 ни через правую кнопку закрыть, ни свернуть?
Подскажите пожалуйста!
Это в тип формы:
PHP код:
  public
    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
    { Public declarations }
  end; 
Ниже implementation:
PHP код:
Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
IF (Msg.WParam=SC_MINIMIZE) or (Msg.WParam=SC_CLOSE) then
Begin
  //ничего не делаем
End
else
inherited;
End; 
P.s. Но все же прибить через панель задач можно
Что бы и там нельзя было: тогда CanClose:=false; как писали выше.
Последний раз редактировалось JnK; 07.04.2010 в 07:14..
 
Ответить с цитированием

  #6038  
Старый 07.04.2010, 07:03
JnK
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563

Репутация: 52
По умолчанию
Цитата:
Сообщение от SkyLine32  
Мне нужно из процедуры:
procedure TForm1.FormHide(Sender: TObject);
begen
...
end;
вызвать таймер, то есть после сворачивания формы должен запустится таймер:

procedure TForm1.FormHide(Sender: TObject);
begin
Label1.Caption := 'Hello World';

{ после этого запускаем тут таймер который будет влиять на то что находится ниже }

ShowMessage('Будь проклят этот мир!!!');
end;

Ну это всего лишь пример. Как можно сделать подобную хрень? хелп!
Есть Вариант типа "свернуть", Поместить в трей, а окно спрятать тогда:
СсылкО

PHP код:
Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
...
Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
IF Msg.WParam=SC_MINIMIZE then
Begin
  MessageBox(0,'Minimized','Мы типа решили свернуть окно',32);
  ShowWindow(Handle,SW_HIDE); // Скрываем форму
  // добавляем иконку в трей
  // Запускаем таймер
//  ShowWindow(Handle,SW_SHOW); // Показываем форму
End
else
inherited;
End; 
Последний раз редактировалось JnK; 07.04.2010 в 07:33..
 
Ответить с цитированием

  #6039  
Старый 07.04.2010, 07:56
icqnum
Новичок
Регистрация: 02.04.2010
Сообщений: 19
Провел на форуме:
33274

Репутация: 0
По умолчанию
А на каком языке написана гала?
 
Ответить с цитированием

  #6040  
Старый 07.04.2010, 07:58
icqnum
Новичок
Регистрация: 02.04.2010
Сообщений: 19
Провел на форуме:
33274

Репутация: 0
По умолчанию
А на делпхи че вообще не вариант написать галу?
 
Ответить с цитированием
Ответ
Страница 604 из 677 « Первая < 104504554594 600 601 602 603 604 605 606 607 608 614654 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ