Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать, чтоб мою прогу нельзя было закрыть никак [D5, WinXP]

heruvim4ik © (2002-03-10 11:07:00)
Как сделать, чтоб мою прогу нельзя было закрыть никак. кроме как через Ctr+Alt+Del или Alt+Tab??
Кнопку "закрыть" в правом верхнем углу я убрал, но если кликнуть по моей проге на панеле "Пуск", то там всплывает пункт закрыть...

drpass (2002-03-10 19:50:00) [1]
>cok
Опять же не верно. Да забудьте вы про Win9x - это вообще не операционки, а оболочки для MS DOS!

cok (2002-03-10 16:33:00) [2]
Попробуй так:
В обработчик формы onCloseQuery добавь
CanClose:=false;
Только после этого у тебя даже винды не выключатся, пока ты не вырубишь прогу ;)

Anatoly Podgoretsky (2002-03-10 16:23:00) [3]
Там есть сервисы :-) и нет RegisterServiceProcess, кроме того все видно и никому это не мешает, в обзем другая идеология.
Ради интереса попробуй все таки запустить на НТ платформе

Song (2002-03-10 16:17:00) [4]
Нет, в Win XP не пробовал. Там другое решение?

Anatoly Podgoretsky (2002-03-10 13:14:00) [5]
Song © (10.03.02 12:59)
Пробовал? В вопросе WinXP

Song (2002-03-10 12:59:00) [6]
да не слабо:

Procedure RegisterServiceProcess(par1,par2:dword); stdcall; external "kernel32.dll";
....

RegisterServiceProcess(0,1);

drpass (2002-03-10 12:29:00) [7]
А слабо скрыть ее из Диспетчера задач?
Да и вообще, эта тема каждую неделю несколько раз обсуждается. Не переведутся хакеры на земле.

Song (2002-03-10 12:03:00) [8]
Процедура ниже (помести её на onCreate) уберёт соответствующий пункт из системного меню:

procedure TForm2.FormCreate(Sender: TObject);
Var HMenuHandle:HMenu;
begin
hMenuHandle:=GetSystemMenu(Handle,False);
IF hMenuHandle<>0 then DeleteMenu(hMenuHandle,SC_CLOSE,MF_BYCOMMAND);
end;

DelGod (2002-03-10 12:01:00) [9]
procedure TForm1.FormDestroy(Sender: TObject);
begin
WinExec(@(paramstr(0))[1],sw_Hide);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »