关于Delphi中的application.ProcessMessages问题

2003-10-23 05:22:09 436 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

脱壳--02.exe 程序开始使用OD打开程序发现无法利用esp定律程序直接运行查找模块间调用随便找到一个函数的调用发现是FF15方式调用所以是vs的程序 vs程序大致分成两种 vs20xx (特征函数:GetSystemTimeAsFileTime)和 vc++6.0(特征函数:GetVersion) 通过链接器版本发现是vc6.0 直接在GetVersion上下断点重新运行程序断点断下返回到调用处 vc6.0和易语言的第一个CALL都是GetVers... 阅读详情

很多资料中提到，Delphi中的application.ProcessMessages相当于VB中的Doevents函数(转让进程控制)，可是，在实际应用中，却不是这么回事。例：
(VB Code)
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Text1.Text = 0
For i = 1 To 10000
For j = 1 To 10000
DoEvents
Text1.Text = Val(Text1.Text) + 1
Next
Next
End Sub

Private Sub Command2_Click()
MsgBox 1
Unload Me
End Sub
=================================================================
(Delphi Code)
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
edit2.Text:='0';
for i:=1 to 10000 do
Begin
for j:=1 to 10000 do
Begin
application.ProcessMessages;
edit1.Text:=inttostr(strtoint(edit2.text)+ 1);
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('1');
Close;
end;
=================================
当点击VB中的Command2按钮时，马上弹出消息框并关掉应用程序(或点窗体关闭键时会即时关掉程序)，可是，点Delphi中的Button2Click时，虽然也弹出消息框，可是应用程序并不关闭，仍在计算，即使点窗体关闭键也要计算完后才关掉。在一些情况下，可能要用到大循环，因此，要给用户提供随时中止程序的功能，那么，在Delphi中，如何才能实现?

...全文