delphi的win32学习 MessageBeep

program Project1;

uses
   Windows ;
begin
    Sleep(1000);
    MessageBeep($ffffffff);
    Sleep(1000);
    MessageBeep(MB_ICONASTERISK);
    Sleep(1000);
    MessageBeep(MB_ICONEXCLAMATION);
    Sleep(1000);
    MessageBeep(MB_ICONHAND );
    Sleep(1000);
    MessageBeep(MB_ICONQUESTION);
    Sleep(1000);
    MessageBeep(MB_OK );
    Sleep(1000);

end.

     很好听的哟