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
Ïà¹ØÎĵµ£º
ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......
Delphi TStream Ïêϸ½éÉÜ
Stream¶ÔÏó£¬ÓÖ³ÆÁ÷ʽ¶ÔÏó£¬ÊÇTStream¡¢THandleStream¡¢TFileStream¡¢TMemoryStream¡¢TResourceStreamºÍTBlobStreamµÈµÄͳ³Æ¡£ËüÃÇ·Ö±ð´ú±íÁËÔÚ¸÷ÖÖý½éÉÏ´æ´¢Êý¾ÝµÄÄÜÁ¦£¬ËüÃǽ«¸÷ÖÖÊý¾ÝÀàÐÍ(°üÀ¨¶ÔÏóºÍ²¿¼þ)
ÔÚÄÚ´æ¡¢Íâ´æºÍÊý¾Ý¿â×Ö¶ÎÖеĹÜÀí²Ù×÷³éÏóΪ¶ÔÏó·½·¨£¬²¢ÇÒ³ä·ÖÀûÓÃÁËÃæÏò¶Ô ......
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
&nb ......
ÔڵͰ汾ÖÐÉ趨MSCOMM¿Ø¼þ£¬Êǵ¼ÈëMSCOMM×é¼þ£¬È»ºó¾Í¿ÉÒÔ¿´¼ûMSCOMM¿Ø¼þµÄµç»°µÄͼ±êÁË£¬µ«ÊÇÔÚDELPHI 2005»òÒÔÉϰ汾ÖоͱØÐëÏȰѴ˿ؼþ´´½¨µ½°üÖУ¨BPL£©È»ºóµ¼ÈëBPL£¬ÄǸöµç»°Í¼±ê¾Í¿ÉÒÔ¿´¼ûÔÚ¹¤¾ßÌõÉÏÁË¡£ÎÒÊÔÁ˶àÉٻزÅÊÔ³öÀ´µÄ¡£ ......