delphi±¨¾¯ÉùÒô Beep¡¢MessageBeep ºÍ Windows.Beep
Îҵİ취£¬Ôö¼ÓÒ»¸ötimer ÉèÖüä¸ô100ms£¬Í¨¹ýtimerµÄʹÄÜ·ñ£¬¿ØÖƱ¨¾¯ÉùÒô¿ª¹Ø
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
===============================================
Delphi ÔÚ SysUtils µ¥Ôª¶¨Òå Beep ·½·¨, ¿ÉÒÔ·¢³öÒ»¸öÉùÒô, Ò»°ãÓÃÓÚÌáÐѺ͵÷ÊÔ.
Beep ÆäʵÊǵ÷ÓÃµÄ API º¯Êý: MessageBeep(MB_OK);
MessageBeep ÓÐÏÂÃ漸ÖÖÓ÷¨¿ÉÒÔµ÷Óü¸ÖÖ²»Í¬µÄÉùÒôÎļþ:
MessageBeep(MB_OK);
MessageBeep(MB_ICONHAND);
MessageBeep(MB_ICONQUESTION); {Õâ¸ö²»Ïì, ²»ÖªµÀΪʲô}
MessageBeep(MB_ICONEXCLAMATION);
MessageBeep(MB_ICONASTERISK);
MessageBeep($FFFFFFFF); {ͬ MessageBeep(MB_OK);}
Beep ͬʱҲÊÇÒ»¸ö API º¯Êý, Ëü¿ÉÒÔÖ¸¶¨ÉùÒôµÄ¸ß¶ÈºÍ³¤¶È; ÒòΪºÍ SysUtils.Beep ÖØÃûÁË, ËùÒÔÓ¦¸ÃÕâÑùµ÷ÓÃ:
Windows.Beep(Òô¸ß, ³¤¶È);
Æ©Èç: Windows.Beep(440, 2000); »á°ÑÒ»¸ö¹ú¼Ê±ê×¼Òô(440HZ)ÑÝ×à 2 ÃëÖÓ.
ÁíÍâµÚÒ»¸ö²ÎÊýµÄÈ¡Öµ·¶Î§ÊÇ: $25 - $7FFFF.
ÒôƵ±íÔÚhttp://www.cnblogs.com/del/archive/2008/10/22/1316380.html
ÏÂÃæµÄ³ÌÐò»áÑÝ×à<°ÂÔË»áÖ÷Ìâ¸è>µÄµÚÒ»¾ä:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
t = 800;
begin
Windows.Beep(330, t);
Windows.Beep(392, t);
Windows.Beep(262, t*2);
Windows.Beep(294, t);
Windows.Beep(330, t);
Windows.Beep(196, t*2);
Windows.Beep(262, t);
Windows.Beep(294, t);
Windows.Beep(330, t);
Windows.Beep(392, t);
Windows.Beep(294, t*4);
end;
end.
var
I : Integer;
begin
for I := 0 to 1000 do
&nbs
Ïà¹ØÎĵµ£º
½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔÇ°°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
str : String;
begin
CopyMemory(@(PShare^.Data),str,Length(str)); //°ÑÊý¾Ý¿½±´µ½ ......
1.¸ù¾Ý Delphi Ö¸Áî²Î¿¼ÊÖ²áÖÐ
˵Ã÷£º
Assigned º¯Ê½ÔÚ²ÎÊý²»Îªnilʱ´«»ØTrue,±íʾָÕëÒѾָµ½Ä³¸öÄÚ´æµØÖ·£¬Õâ¸öÄÚ´æµØÖ·¿ÉÄÜÊÇÒ»¸ö¶ÔÏóµØÊ×µØÖ·£¬Ò²¿ÉÄÜÔÚº¯Êý»ò¹ý³ÌÖУ¬ÉùÃ÷Ò»¸öÖ¸Õë±äÁ¿£¬Ã»Óи³ÖµÎªnil £¬ÎÞÂÒµÄÖ¸Ïòij´¦£¬ÕâÁ½¸öÖÖÇé¿ö£¬Assigned£¨Ö¸Õë±äÁ¿£©¶¼²»Îªnil , º¯Êý·Å»ØTrue£»
¶ø²ÎÊýΪnilʱÔò´«»ØFals ......
²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......
¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»
ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈÇ°Ö¸ÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌرðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º
¡ñ&n ......
ÔڵͰ汾ÖÐÉ趨MSCOMM¿Ø¼þ£¬Êǵ¼ÈëMSCOMM×é¼þ£¬È»ºó¾Í¿ÉÒÔ¿´¼ûMSCOMM¿Ø¼þµÄµç»°µÄͼ±êÁË£¬µ«ÊÇÔÚDELPHI 2005»òÒÔÉÏ°æ±¾ÖоͱØÐëÏȰѴ˿ؼþ´´½¨µ½°üÖУ¨BPL£©È»ºóµ¼ÈëBPL£¬ÄǸöµç»°Í¼±ê¾Í¿ÉÒÔ¿´¼ûÔÚ¹¤¾ßÌõÉÏÁË¡£ÎÒÊÔÁ˶àÉٻزÅÊÔ³öÀ´µÄ¡£ ......