Работа с 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

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