скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Убрать программу из списка Ctrl+Alt+Delete




- Что самое главное для программиста, собирающегося провести ночь с подругой?
- Чтобы система не повисла.
- А если все-таки повиснет?
- Ну тогда как всегда, тремя пальцами.

Конечно, отключить Ctrl+Alt+Del - это круто, но пользователь сразу догадается, что кто-то у него побывал в гостях с нечистыми намерениями, а если вы хотите всё делать "под покровом темноты", то наилучший способ просто убрать прогу из списка

Например, по созданию окна. Для этого до слова implementation вписываем следующую функцию:


function RegisterServiceProcess(dwProcessID, dwType: integer): integer;
stdcall; external 'KERNEL32.DLL';

А на создание окна код будет выглядеть так:


procedure TForm1.FormCreate(Sender: TObject);
begin
  if not(csDesigning in ComponentState) then
    RegisterServiceProcess(GetCurrentProcessID, 1);
end;

Ну вот и всё, а если вам понадобится сделать прогу видимой, тогда сделаем это так:


procedure TForm1.Button1Click(Sender: TObject);
begin
  if not(csDesigning in ComponentState) then
    RegisterServiceProcess(GetCurrentProcessID, 0);
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook