DelphiÏà¹ØÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ
ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£
ʲôÒâ˼£¬ÊÇн¨µÄÓ¦ÓÃÔËÐÐÍ£Ö¹£¬»¹ÊdzÌÐòÍ£Ö¹ÁËÄØ¡£ ûÃ÷°×LZÒâ˼~~ÒýÓà ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£ ÊÇ consonle ÏµĻ¹ÊÇ£¿ ¾ÍÊÇÀýÈçн¨ÁËÒ»¸öform´°Ì壬ÉÏÃæ·½Á˼¸¸ö¿Ø¼þ£¬Õâ¸öʱºòµãÔËÐУ¡~°´ÀíÓ¦¸Ã»á³öÏÖÎÒ½¨µÄ½¨µÄÄǸö´°¿ÚÓë¿Ø¼þ£¬µ«µãÔËÐа´¼þµÄʱºò£¬Ö±½Ó¾ÍÍ£Ö¹ÁËÔËÐС££¨Òâ˼ÊǸù±¾Ã»Óп´µ½ÔËÐнá¹û¾ÍÍ£Ö¹ÁË£© Ìù¹¤³Ì²¿·ÖµÄ´úÂë¿´Ï£®¡¡¿ÉÄÜÊÇ°Ñ Application.CreateForm ¸øÈ«É¾Á˰ɣ® Ä¿標exeÊÇ·ñÒÑ運ÐУ¬ÈôÓУ¬ÏÈ關閉 unit sd1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type TF_zct = class(TForm) Edit1: TEdit; Edit2: TEdit; ADOConnection1: TADOConnection; Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F_zct: TF_zct; implementation {$R *.dfm} procedure TF_zc
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿ ÊÕÈëÔõôÑù sohu£¿soho£¿ sohu ¿ÉÄÜÊÇsmall office house unit С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£ È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾ ѧϰѧϰ¡£ ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
xml := CreateOleObject('Microsoft.XMLHTTP'); xml.Open('GET','http://www.google.com', False); xml.Send; xml.responseText; ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
ÇëÎÊÄÄλ´óÉñÄܰïÎÒ¿´¿´ÎÒÕâ¾äתµÃ¶Ô²»¶Ô ÀÏÊÇ»á³ö´í¡£ ±àÒëûÌáʾ´íÎó µ«ÊÇÔËÐгÌÐòµÄ»°»á³ö´í ÎÒÓÃAPI HOOKÀ¹½ØÁËdr0-dr3 È»ºó·¢ÏÖ¼ÙÈçÎÒdr0:=$123456 ¶øÆäËûdr1-dr3ÎÒ¶¼²»ÉèÖà µ«ÊÇÀ¹½Øµ½Ö®ºóÈ´·¢ÏÖdr0:=$1234 ......
Çë½Ì¸÷λ´óÏÀ£º DelphiÖÐÓÃÉÏϼü»ò»Ø³µ¼üÇл»ÊäÈë¿ò£º ÔÚedit1µÄOnkeyPressʼþÀ if (key in[#13,#38]) then begin edit2.SetFocus ; end; Ϊʲô°´»Ø³µ¼ü¿ÉÒÔ ......