如下一段代码:wm_paint消息什么时候就会发生。然后主机就会响一下?unit GMMain;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMPaint(var Msg: TWMPaint);
begin
  MessageBeep(0);
  inherited;
end;
end.

解决方案 »

  1.   

    procedure TForm1.FormPaint(Sender: TObject);
    begin
      beep;
    end;
      

  2.   

    呵呵,我得瑞星把他当成了
    Trojan.DL.Win32.Delf.fxs
      

  3.   

    代码ms没有问题。窗口要重画的时候便会beep了
      

  4.   

    The WM_PAINT message is sent when the system or another application makes a request to paint a portion of an application's window. The message is sent when the UpdateWindow or RedrawWindow function is called, or by the DispatchMessage function when the application obtains a WM_PAINT message by using the GetMessage or PeekMessage function.
      

  5.   

    呵呵  瑞星老是错杀 还不如用NOD32
    谢谢2楼的哥哥