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

Работа с Win98   Найти похожие ветки 

← →
Andrewv   (2001-12-13 14:21) [0]

Можно ли из программы целенаправленно вызвать ошибку Windows
"Программа вызвала недопустимую операцию и будет закрыта"?

---

← →
Delirium ©   (2001-12-13 15:20) [1]


procedure TForm1.Button1Click(Sender: TObject);
begin
raise ERangeError.CreateFmt("№ проблемы %d в строках с %d по %d",
[1,20,30]);
end;


---

← →
Victor ©   (2002-02-13 08:15) [2]

Delirium>>
Твоя под 2000 не работает
мы в универе писали такую прогу только по другому (правда посложней)
делаеш форму, точную копию ошибки и на открытие какого нибудь окна делаешь примерно так на форму пишешь
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:= false;
end;

потом на таймер
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if findwindow(nil,"Имя окна")<>0 then
begin
Application.ShowMainForm:= true;
SendMessage(Findwindow(nil,""Имя окн"),wm_syscommand,sc_close,0);
end;
end;

где имя окна заголовок чужого окна например проводника
в результате форма появляется в момент его открытия
Усё

---

← →
Timon ©   (2002-02-13 09:35) [3]

А есть вариант попроще.

procedure {Какая-нибудь, по событию}
var r:^byte;{Тип для примера, а так-то можно все что угодно написать}
begin
r:=2;{Или другое число.}
end;

Ошибка будет сто прцентно в любой системе. Прада программа тоже сто процентно будет закрыта.

---

← →
Shaman_Naydak ©   (2002-02-13 10:06) [4]

To Timon:
а вот и не факт, если указатель будет указывать случайно куда-нидь на твой сегмент данных, то ошибки не будет..
надежнее сперва целенаправленно его испортить..

To Andrewv:
Попробуй вот такую инструкцию

asm DB 0Fh, 0, 0, 0 end;

у меня под 2000 очень приколько отработала :)

---

← →
WhiteRat   (2002-02-15 13:37) [5]

Хехехе, а зачем??? ИМХО мастдай98 и так эти ошибки выдает с достаточной частотой...
:)

---

← →
Sasha9   (2002-02-21 13:43) [6]

А можно и так:
var p:pointer;
..........
getmem(p,100);
freemem(p);
freemem(p);
можно вместо повторного очищения что-н. присвоить:
p^:=.....;//не уверен что этот случай пойдёт
желательно в свойствах проекта убрать все проверки на ошибки и запускать не через delphi а скомпилированный exe

---

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

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



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