怎样让一个没窗体的程序不自动退出?

Question

我想编写一个没窗体的程序，但不想让程序自动退出，请问有什么好的即解决方法？

Answer 1

呵呵!想想DOS程序怎么做的?只要程序不执行到那个end.就没事!

Answer 2

条件循环不太合适，我没有编写过DOS程序，能给段代码吗？

Answer 3

加入消息循环就可以啦！
while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)
end;
嗬嗬，具体问题可以到我们 WIN32SDK版 呀！
（算不算是做广告？）：）

Answer 4

program test
var
i:integer;
begin
i:=2;
 while i>1 do
begin
sleep;
end;
end.