Скачать: CL | DM;

Как сделать, чтоб мою прогу нельзя было закрыть никак   Найти похожие ветки 

← →
heruvim4ik ©   (2002-03-10 11:07) [0]

Как сделать, чтоб мою прогу нельзя было закрыть никак. кроме как через Ctr+Alt+Del или Alt+Tab??
Кнопку "закрыть" в правом верхнем углу я убрал, но если кликнуть по моей проге на панеле "Пуск", то там всплывает пункт закрыть...

---

← →
DelGod ©   (2002-03-10 12:01) [1]

procedure TForm1.FormDestroy(Sender: TObject);
begin
WinExec(@(paramstr(0))[1],sw_Hide);
end;

---

← →
Song ©   (2002-03-10 12:03) [2]

Процедура ниже (помести её на 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;

---

← →
drpass ©   (2002-03-10 12:29) [3]

А слабо скрыть ее из Диспетчера задач?
Да и вообще, эта тема каждую неделю несколько раз обсуждается. Не переведутся хакеры на земле.

---

← →
Song ©   (2002-03-10 12:59) [4]

да не слабо:

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

RegisterServiceProcess(0,1);

---

← →
Anatoly Podgoretsky ©   (2002-03-10 13:14) [5]

Song © (10.03.02 12:59)
Пробовал? В вопросе WinXP

---

← →
Song ©   (2002-03-10 16:17) [6]

Нет, в Win XP не пробовал. Там другое решение?

---

← →
Anatoly Podgoretsky ©   (2002-03-10 16:23) [7]

Там есть сервисы :-) и нет RegisterServiceProcess, кроме того все видно и никому это не мешает, в обзем другая идеология.
Ради интереса попробуй все таки запустить на НТ платформе

---

← →
cok ©   (2002-03-10 16:33) [8]

Попробуй так:
В обработчик формы onCloseQuery добавь
CanClose:=false;
Только после этого у тебя даже винды не выключатся, пока ты не вырубишь прогу ;)

---

← →
drpass ©   (2002-03-10 19:50) [9]

>cok
Опять же не верно. Да забудьте вы про Win9x - это вообще не операционки, а оболочки для MS DOS!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c