
·¢²¼ÓÚ2007-12-27 06:31:15 |
ÏêϸÄÚÈÝ( 32´ÎÔĶÁ)

//Ê×ÏȸÐлÔ×÷Õߣ¬µ«µ±³õÔÚcsdnÉÏËÑË÷µ½¸Ãµ¥ÔªÊ±£¬¾ÍûÔ×÷ÕßµÄÐÅÏ¢£¨³ÌÐòÀïµÄÓÐЩÂÒÂëµÄ×¢ÊÍÓ¦¸ÃÊÇÔ×÷ÕßÁôϵİɣ¿ºÇºÇ£©//Óв»×ãµÄµØ·½»¹Çë¸÷λ¿´¹Ù¶à¶àÖ¸µã¹þ ^_^
(* Modify By ½ÇÂäµÄÇà̦@2005/05/13 ˵Ã÷£ºÔö¼Óµ¼³ö¹ý³ÌÖеĻص÷¹¦ÄÜ£¨Óû§Í£Ö¹£¬½ø¶ÈÌõ£© ÊÇ·ñÔÚµÚÒ»ÐвåÈëFieldName ¸Ä´í£ºÒÔǰֻÄܶÔwordÀàÐÍÊýֵдÈ룬DWord»áRange Check error£»ÒÑÐÞÕý£¬¼ûCellInt...
more

·¢²¼ÓÚ2007-12-27 06:31:15 |
ÏêϸÄÚÈÝ( 121´ÎÔĶÁ)

¶¨Ê±ÔËÐÐÕâ¸öÎÊÌâÆäʵÀÏÔç¾Í½Ó´¥µ½ÁË£¬²»¹ýÔÚÉϴεijÌÐòÖÐËÆºõûÓкܺõĽâ¾öÕâ¸öÎÊÌ⣬²¢ÇÒûÓÐÉîÈëÏÂÈ¥¡£Õâ´ÎÔÙ´ÎÅöµ½Í¬ÑùµÄÎÊÌ⣬ÔÚ²éÕÒÁËÍøÉϵÄ×ÊÁÏÒԺ󣬶ÔÕâÒ»ÎÊÌâÓÐÁ˱ȽÏÉîµÄÀí½â¡£ÔÚ³ÌÐòÖÐʵÏÖ¶¨Ê±ÔËÐеÄ˼·£ºÓÉtimer¿Ø¼þʵÏÖÁ½¸ötimer¿Ø¼þ£¬ÆäÖÐtimer1¸ºÔðÿһ·ÖÖÓ¼ì²éÒ»´Îϵͳʱ¼äºÍÉ趨ʱ¼äµÄ²îÖµ£¬Èç¹ûÁ½ÕßÏà²î5·ÖÖÓ£¬Ôò¼ÌÐø¼ì²é£¬Ö±µ½µ±Ïà²îʱ¼äСÓÚ5·ÖÖÓ£¬´¥·¢timer2£¬timer2µÄ¶¨Ê±Æ÷ʱ¼ä¾ÍÊÇÕâ¸öʱ¼ä¼ä¸ô¡£µ±timer2µ½Ê±ÒԺ󣬾ʹ¥·¢Ö÷³ÌÐò¡£¾ßÌå´úÂë
procedure TForm1.Button1Cli...
more

·¢²¼ÓÚ2007-12-27 06:31:14 |
ÏêϸÄÚÈÝ( 60´ÎÔĶÁ)

url±àÂëÓë½âÂ빤¾ß¸½´úÂëurl±àÂëÓë½âÂ빤¾ß¸½´úÂ룬´úÂëºÜ¼òµ¥£¬×ösql×¢Èë·ÖÎöʱ¾³£Óõ½£¬µ«Ò»Ê±ÓÖÕÒ²»µ½£¬¾ÍдÁËÒ»¸ö´úÂ벿·Ö£ºunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, HTTPApp;typeTForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; Button2: TButton; procedure Button1Click(Send...
more

·¢²¼ÓÚ2007-12-27 06:31:13 |
ÏêϸÄÚÈÝ( 37´ÎÔĶÁ)

ÏÖÔÚÍøÂçµÄÁ÷ÐУ¬Ê¹µÃ·þÎñÆ÷³ÌÐòµÃµ½Á˹㷺µÄÓ¦Óã¬ÄÇôÎÒÃÇʹÓÃDelphiÈçºÎÉè¼Æ³öǿ׳µÄ·þÎñÆ÷ÄØ£¿
ÓÐÈË˵£¬Èç¹ûÒªÉè¼Æ·þÎñÆ÷µÄ»°£¬Ò»¶¨ÒªÊ¹ÓÃVCÀ´Éè¼Æ£¬ÆäʵÕâ¸öÈË˵µÄÓÐÒ»¶¨µÀÀí£¬ÒòΪÈç¹ûÄãҪʹÓÃDelphiÀ´Éè¼Æ·þÎñÆ÷µÄ»°£¬ÒªÏëÉè¼Æ¸ßЧµÄ·þÎñÆ÷¾Í²»ÒªÊ¹ÓÃDelphi´øÀ´µÄ´ó²¿·ÖµÄ¿Ø¼þ£¨×îºÃ²»ÒªÊ¹ÓÃDelphi¿Ø¼þ£©£¬ÎªÊ²Ã´ÄØ£¿ÏÂÃæÎÒ»á¸æËß´ó¼Ò¡£ÕâÑùµÄ»°ÄãÈ«²¿Ê¹ÓÃAPIÀ´Éè¼Æ·þÎñÆ÷£¬¾ÍͬVCûÓÐÌ«´óµÄÇø±ðÁË¡£
ʹÓÃDelphiÀ´Éè¼Æ·þÎñÆ÷³ÌÐò£¬¾ßÌåÑ¡ÔñÊÇʹÓô°ÌåÏûϢģʽ»¹ÊÇʹÓÃÍê³É¶Ë¿ÚµÄģʽ£¬ÕâÖ÷Ò...
more

·¢²¼ÓÚ2007-12-27 06:31:13 |
ÏêϸÄÚÈÝ( 178´ÎÔĶÁ)

ÓÃDLL·½Ê½·â×°MDI×Ó´°ÌåÊÇÒ»ÖÖ³£ÓõÄÈí¼þ¿ª·¢¼¼Êõ£¬ËüµÄÓŵ㣺
¿ª·¢ÈËÔ±¿ÉÒÔ¸ºÔðijһ¸öÄ£¿éµÄ±àд°üÀ¨£¨½çÃæ£«Âß¼£©£¬¿ÉÒÔ»¥²»¸ÉÈÅ£¬Ä£¿é¿ª·¢Íê³Éºó£¬Ö÷³ÌÐòͳһµ÷Óá£
Ò×ÓÚ³ÌÐòÉý¼¶£¬µ±³ÌÐòÉý¼¶Ê±£¬²»ÓñàÒëÖ÷exeÎļþ£¬¸üÐÂij¸öDLL¾Í¿ÉÒÔÉý¼¶¡£
¿ÉÒÔ¸ù¾Ý¿Í»§²»Í¬µÄÐèÇó¡¢¼ÛÇ®¸øËûÃDz»Í¬µÄÄ£¿é¡££¨¼éÉ̶¼Ô¸ÒâÓÃÕâÕУ©
×î½üÓõ½Õâ¸ö¼¼Êõ£¬ÒòΪСµÜûÓÐÓùý£¬ÔÚÍøÉÏgoogleÁËһϣ¬¶ÔËüÓÐÁËÁ˽⣬ÎÒÓõÄÊÇ»ùÓÚCOMµÄDLL£¬ÏÂÃæ×ܽáÈçÏ£º
ÏëÔÚDLLÖзâ×°MDI×Ó´°Ì壬Ҫ...
more

·¢²¼ÓÚ2007-12-27 06:31:13 |
ÏêϸÄÚÈÝ( 37´ÎÔĶÁ)

ÍøÉÏÕÒÀ´µÄ ¸Ð¾õ¶ÔÈëÃÅÕߺÜÓÐÆôʾ ÊÕ²ØÒ»ÏÂÁË!No.1 ÅжÏÂß¼ÀàÐÍ }var B: Boolean;beginB := Boolean(2); //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B := True;if B = True then ShowMessage(B = True); //²»½¨Òé//²»°²È«///////if B then ShowMessage(B); //½¨Òé//¼ò¶Ìend;
var B: Boolean;beginif Edit1.Text = ÊÇ then //²»½¨Òé//·³ËöB := Trueelse B := False;///////B := Edit1.Text = ÊÇ; //½¨Òé//¼ò¶Ìend;
{ No.2 ÁÙʱSQL²éѯ }beginQuery...
more

·¢²¼ÓÚ2007-12-27 06:31:12 |
ÏêϸÄÚÈÝ( 65´ÎÔĶÁ)

ÔÚDelphiÖÐÑ¡Project Import Type LibraryÃüÁÔÚ¶Ô»°¿òÖÐÑ¡Import Microsoft Shell Controls And AutomationÀàÐͿ⣬µãInstallºó£¬ÔÚDelphiµÄActiveX¿Ø¼þ°åÉϾͶàÁËTShellFolderItem£¬TShellLinkObject£¬TShellFolderView£¬TShell£¬TSearchCommandµÈ¼¸¸ö×é¼þ
const discVerb = ½ûÓÃ(&B); connVerb = ÆôÓÃ(&A);
function TForm1.DisableEthernet(const EthName,State: String): Boolean;var cpFolder: Folder; nwFolder: Folder...
more

·¢²¼ÓÚ2007-12-27 06:31:12 |
ÏêϸÄÚÈÝ( 52´ÎÔĶÁ)

¡¡±¾³ÌÐòͨ¹ýµ÷ÓÃkernel32.dllÖеöAPI º¯Êý£¬ËÑË÷²¢ÁгöϵͳÖгý±¾½ø³ÌÍâµÄËùÓнø³ÌµÄID¡¢¶ÔÓ¦µÄÎļþ˵Ã÷·û¡¢ÓÅÏȼ¶¡¢CPUÕ¼ÓÐÂÊ¡¢Ïß³ÌÊý¡¢Ïà¹Ø½ø³ÌÐÅÏ¢µÈÓйØÐÅÏ¢£¬²¢¿ÉÖÐÖ¹ËùÑ¡½ø³Ì¡£ ¡¡¡¡±¾³ÌÐòÔËÐÐʱ»áÔÚϵͳÍÐÅÌÇø¼ÓÈëͼ±ê£¬²»»á³öÏÖÔÚ°´Ctrl+Alt+Del³öÏÖµÄÈÎÎñÁбíÖУ¬Ò²²»»áÔÚÈÎÎñÀ¸ÉÏÏÔʾÈÎÎñ°´Å¥£¬ÔÚ²»»î¶¯»ò×îС»¯Ê±»á×Ô¶¯Òþ²Ø¡£²»»áÖØ¸´ÔËÐУ¬Èô³ÌÐòÒѾÔËÐУ¬ÔÙÏëÔËÐÐʱֻ»á¼¤»îÒѾÔËÐеijÌÐò¡£ ±¾³ÌÐò±ÜÃâ³ÌÐò·´¸´ÔËÐеķ½·¨ÊDZȽ϶ÀÌØµÄ¡£ÒòΪ±ÊÕßÔÚÊÔÓÃÍøÉϽéÉÜһЩ·½·¨ºó£¬·¢ÏÖ³ÌÐò´Ó×...
more

·¢²¼ÓÚ2007-12-27 06:31:11 |
ÏêϸÄÚÈÝ( 41´ÎÔĶÁ)

ÒÔÔ¶³Ì¼ÆËã»úÉϵÄÓû§Éí·Ý·ÃÎÊCom+Ó¦ÓÃ
DELPHI³ÌÐòÔ±¿ª·¢com+Ó¦ÓõÄËÙ¶ÈÊǷdz£¿ìµÄ£¬ÆäÖ÷ÒªÔÒòÊÇÆä½ÏºÃµØ·â×°ÁËcom+µÄwindowsµ×²ã¹¦ÄÜ£¬¿ª·¢ÈËԱͨ¹ý½ÏΪ¼òµ¥µÄÀà¼Ì³Ð¾Í±Ü¿ªÁ˸´ÔÓµÄcom+µ×²ã¼¼Êõϸ½Ú£¬Ê¹¿ª·¢ÈËÔ±½«¾«Á¦·ÅÔÚÓ¦Óñ¾ÉíµÄ¹¦ÄÜÉÏÃæ¡£DelphiÔÚ·â×°com+Ó¦ÓÃʱ²ÉÈ¡ÁËÐí¶àÕÛÖÔ£¬ÔÚ±£ÁôͨÓÃÐÔµÄͬʱҲ±Ü¿ªÁËһЩʵÏÖÆðÀ´À§Äѵ«ÊÇÓ¦ÓÃÃæ²»Ì«¹ãµÄcom+µ×²ãÌØÐÔ¡£ÕâЩ±Ü¿ªµÄÌØÐÔÖÐ×îÁîdelphi com¿ª·¢ÈËÔ±¹ØÐĵľÍÊǰ²È«ÌØÐÔ¡£´Ód...
more

·¢²¼ÓÚ2007-12-27 06:31:11 |
ÏêϸÄÚÈÝ( 75´ÎÔĶÁ)

2005-6-23 fh@mail.trisunwyse.com¼¼ÊõÔÀí ͨ¹ýÔÚTppReportµÄBeforePrintʼþÖжÔTPrinterDeviceµÄPageSettingÊôÐÔºÍPageListÊôÐÔ½øÐи³ÖµÎªºÎÒªÈç´Ë´¦Àí£¿¸ù¾Ý·ÖÎöReportBuilderÔ´Â룬ÎÒÃǵõ½Èçϵĵ÷ÓÃ˳ÐòTppViewer -> TppProducer -> TppPrinterDevice -> TppPageRequest -> TppPublisher£¬ÆäÖÐ TppPageRequest ·â×°ÁË´òÓ¡Ò³·¶Î§ÐÅÏ¢£¬¶øTppPrinterDevice ¸ºÔð½«Ö¸¶¨µÄÒ³·¢Ë͵½PrinterCanvas
ʵÏÖ²½Öè&n...
more