因为要进行程序测试（监控程序），需要一个一运行就死的程序代码，不知道如何写这个程序？

Question

自己触发一个异常。
var exc:exception;
exc:=exception.Create('我正在死，呵呵');

Answer 1

var i: integer;
i:=i/0; 
他不会死，DELPHI的异常机制会起作用的做个死递归吧,我已经把delphi都弄得死翘翘了PROCEDURE digui;
begin 
  digui;
end;procedure ..::button1click()
begin
  digui;
end;

Answer 2

把一个exe文件打开，然后随便改点中间的内容，保证运行就死机

Answer 3

lj_csdn(大笨蛋) 有点可行，我不会汇编呀，谁给我写点。

Answer 4

要W2K也管不着，那可难了，除非你先抢班夺权，再直接干W2K

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  const
    sTemp='death program';
  var
    M:TMemoryStream;
    b:boolean;
begin
  M:=TMemoryStream.Create;
  b:=true;
  while b do
    M.Write(sTemp,SizeOf(sTemp));
end;