我再编写一个钟得控件想让他再到时得时候响铃该怎么写？

Question

我事想用一个报时功能
原来事用
段汇编可以变成mov ah, 0eh
mov al, 07h
int 10h;我想这样可能有些人能看出来了。int 10h 的 0eh功能号应该是电传方式写字符，这个东西很少有人用了。
al寄存器的内容是 要写的asc码，
asc码中 07h 是ring，就是铃！
等效于 write(chr(7));但是运行时出错了
不过好像一运行就出错啊
好像说什么read adress FFFFFFFF
另外如果改为write(chr(7));
则出现io错误
一直都查不出什么原因
谁还有其他得报时得代码可以用啊

Answer 1

windows 下发生的东西多了Beep
或者PlaySound

Answer 2

直接在delphi中用beep就可以发声了，没必要那么复杂吧，beep是delphi的一个过程，可以直接使用的

Answer 3

直接用win32 api ，Beep ,MessageBeep
delphi中Beep是封装的MessageBeep
其实你做闹钟的话，建议用PlaySound  或者sndPlaySound，放点音乐比那个Beep好听多了~：）

Answer 4

同意ghostmirror(mirror)，顺便来接分。

Answer 5

if FCaption=sDate then
        begin
          //FActive := false;
          //Timer.Enabled := False;
          FDateHint := sHint;
          beep;
        end;
           if Assigned(FShowDateHint) then
             FShowDateHint(self)
           else
             showmessage(sHint);
我这样写他却在beep那儿出现Statement expected, but expression of type 'boolean' found
的错误是什么原因啊