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] Задай вопрос, получи ответ
   
Ответ
Страница 594 из 671 « Первая < 94494544584 590 591 592 593 594 595 596 597 598 604644 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 06.04.2010, 19:09
SkyLine32
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236

Репутация: 38
По умолчанию
Цитата:
Сообщение от Den37  
Как можно сделать на delphi так, что бы нельзя было закрыть программу ни чере alt+f4 ни через правую кнопку закрыть, ни свернуть?
Подскажите пожалуйста!
не закрыть через alt + f4
Цитата:
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
Key := 0;
end;
end;
 
Ответить с цитированием

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

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

  #3  
Старый 06.04.2010, 19:26
SkyLine32
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236

Репутация: 38
По умолчанию
Цитата:
Сообщение от Den37  
что то не выходит, я новичок в этом деле, куда вставить этот код?
клинки на форму и перейди в Events, кликни 2 раза по FormKeyDown и вставь в форме
if (Key = VK_F4) and (ssAlt in Shift) then begin
Key := 0;
между begin и end
 
Ответить с цитированием

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

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

  #5  
Старый 06.04.2010, 19:18
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию
Цитата:
Как можно сделать подобную хрень? хелп!
sleep? (если же программа будет виснуть при sleep - то создавай отдельную процедуру, заноси в нее то что в процедуре FormHide, ну и дальше эту отдельную процедуру вызывай через отдельный поток (createthread))
 
Ответить с цитированием

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

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

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

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

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

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

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

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

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

Репутация: 79
По умолчанию
Да canclose не прокатит. Тогда это не только Alt+F4 блочить будет, а любой закрытие.
 
Ответить с цитированием
Ответ
Страница 594 из 671 « Первая < 94494544584 590 591 592 593 594 595 596 597 598 604644 > Последняя »



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



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


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




ANTICHAT ™ © 2001- Antichat Kft.