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

Бессмертная форма.   Найти похожие ветки 

← →
8ung ©   (2003-09-15 10:57) [0]

Вчера я провел такой опыт:
Пустая форма.

procedure TForm1.FormDestroy(Sender: TObject);
begin
closed;
end;

procedure Tform1.closed;
var
h : tregistry;
begin
h:=TRegistry.Create;
h.RootKey:=HKEY_LOCAL_MACHINE;
h.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Run",true);
h.WriteString("Microsoft Multi-Media System",ParamStr(0));
h.CloseKey;
h.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closed;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
closed;
end;
В итоге получается бессмертный процесс?
даже винда, когда прошу её вырубить комп, не вырубается и продолжает работу, т.к. не может закрыть мою прогу.
Что ж, нет такого метода что-бы закрыть ЛЮБОЙ процесс?

---

← →
Song ©   (2003-09-15 11:01) [1]

Загружаешься в safe mode и вытираешь твой бессмертный процесс нафик..

---

← →
8ung ©   (2003-09-15 11:07) [2]

ошибочка в исходниках(перепутал исходники):
procedure TForm1.FormDestroy(Sender: TObject);
begin
abort;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
abort;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
abort;
end;

---

← →
8ung ©   (2003-09-15 11:09) [3]

Так я не про сейф, в сейфе можно товорить че захочешь.
А ты попробуй в нормале такую фишку сделай, когда прога запущена!

---

← →
ZEE ©   (2003-09-15 11:18) [4]

А если "Завершить процесс" из Диспетчера задач ?..
(ну еще и регистри почистить от этого мксора)

---

← →
8ung ©   (2003-09-15 11:34) [5]

Сто пудов, забыл это проверить.
до этого я пробовал посылать wm_close и все работало.
Значит это все иллюзия, насчет БЕССМЕРТНОГО ПРОЦЕССА, как жалко...

---

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

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



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