Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi ½Å±¾ÒýÇæ±È½Ï

TMS Scripter£ºÖ§³ÖPascalºÍVBScriptÁ½ÖÖÓï·¨¡£ÓŵãÊÇÎĵµÆëÈ«¡¢Àý×ÓÆëÈ«£¬½Å±¾¿ÉÖ±½ÓÖ§³ÖDLL£¬¹Ù·½»¹ÌṩÁ˷ḻµÄIDE Debug¹¤¾ß¡¢µ¥Ôªµ¼³öº¯Êý¹¤¾ßµÈ£¬È±µãÊDZàÒëÔËÐнÏÂý¡£for ¿ÕÑ­»·1000Íò´Î£¬ÐèÒª10ÃëÖÓÒÔÉÏ¡£TMS ScripterÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
       FastScript£ºÓùýFastReport±¨±íµÄͬѧ¶¼ÖªµÀFastReportËٶȷdz£¿ì¡£for ¿ÕÑ­»·1000Íò´Î£¬Ö»ºÄ·Ñ4ÖÁ5Ãë×óÓÒ¡£ÆäÖÐFastScriptÔÚ±¨±í¿É×ö°æ±¾ÅÅ°æ΢µ÷´¦Àí¡¢º¯Êý¼ÆËãµÈ¡£ÆäÓŵãÊÇËٶȺܿ졢ºÜÈÝÒ×д³ö½Å±¾µ¥ÔªµÄRTTI×é¼þ¡¢Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨£¬È±µãÊÇÎĵµºÍÀý×ӱȽÏÉÙ£¬Ä¬ÈϵĽű¾²»ÄÜÖ±½ÓÖ§³ÖDLL¡£FSÒ²ÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
     Remobjects PascalScript£¬¹ËÃû˼Ò壬ֻ֧³ÖpascalÓï·¨£¬Remobjects ³õÖÔÊÇÔÚDAÀïÌṩ×Ô¶¨ÒåµÄ½Å±¾´¦Àí¡£ÓŵãÊÇÃâ·ÑÈí¼þ£¬½Å±¾Ö±½ÓÖ§³ÖDLL ¡£È±µãÊÇÎĵµ²»¶à¡£ËٶȱÈTMS Scripter ÉÔ¿ì¡£
    PaxScripterÊÇ×ÛºÏÐÔÄÜ×îºÃµÄ½Å±¾½âÊÍÆ÷¡£ÆäÓŵãÊÇËÙ¶È×î¿ì£¬for ¿ÕÑ­»·1000Íò´Î£¬Ö»ºÄ·Ñ1ÖÁ2Ãë×óÓÒ¡£ÎĵµºÍÀý×ӱȽÏÆëÈ«£¬Óе¼³öº¯Êý¹¤¾ß¡£½Å±¾ÀïÖ±½ÓÖ§³ÖDLL¡£Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨¡£È±µãÊÇ£¬×÷Õß05ÄêÖÁ½ñÉÐδ¸üа汾¡£×÷ÕßÐËȤÒѾ­²»Ôڽű¾½âÊÍÆ÷£¬×¨ÃÅÑо¿.NetºÍpascal±àÒëÆ÷¡£Òò´Ë£¬PaxScripterÖÁ½ñÉв»ÄÜÖ§³ÖD2009¡£PaxScripterÊÇÉÌÒµÈí¼þ¡£Èç¹ûÖ»ÏëÖ§³ÖpascalÓï·¨¼´¿É£¬¿ÉÓÃ×÷ÕßµÄpascal±àÒëÆ÷´úÌæPaxScripter£¬ËٶȸüÊDZÈPaxScripter»¹Òª¿ì¡£


Ïà¹ØÎĵµ£º

Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

Óйؿª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆ­È¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøͬÐУ¨ÄîXing£©ÕßÌṩһЩ
½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
     &n ......

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×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨1£©×é¼þ¿ª·¢¸ÅÊö

ÔÚ¿ª½²Ö®Ç°£¬Ê×ÏÈ£¬ÎÒ¼ÙÉèÄãÁ˽âʲôÊÇÃæÏò¶ÔÏó£¬Ê²Ã´ÊÇÀà¡£Èç¹û²»Á˽âµÄ»°£¬½¨ÒéÏÈÈ¥Á˽âÒ»ÏÂÏà¹Ø֪ʶ£¡
  
ÔÚDelphiÖУ¬×é¼þ£¬ÎÒÃÇ¿ÉÒÔ½«ËüÀí½âΪһ¸ö¸öµÄ·â×°ºÃÁ˵ŦÄܶÔÏó¿â£¬Ê¹ÓÃÕâ¸ö¿â£¬¾ÍÖ»Óüòµ¥µÄ¼¸¾ä´úÂ룬ÉõÖÁ½ö½ö¼òµ¥µÄÉèÖü¸¸öÊôÐÔ¾ÍÄÜʵÏÖijЩ
¹¦ÄÜ£¬ÎÒÃÇ¿ÉÒÔ½«×é¼þÏëÏó³ÉÈÕ³£Éú»îÖÐʹÓõÄijЩ ......

DelPhiÏÂÓÃCDO·¢ËÍÓÊÏäʵÀý

Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
  vCDOMessage:=CreateOleObject('CDO.Message');
  vcdomessage.from:='MR.F'+'< ......

ÈóÌÐòÖ»ÔËÐÐÒ»¸öʵÀý(Delphiƪ)

Windows ÏÂÒ»¸öµäÐ͵ÄÌØÕ÷¾ÍÊǶàÈÎÎñ£¬ÎÒÃÇ¿ÉÒÔͬʱ´ò¿ª¶à¸ö´°¿Ú½øÐвÙ×÷£¬Ò²¿ÉÒÔͬʱÔËÐгÌÐòµÄ¶à¸öʵÀý£¬±ÈÈç¿ÉÒÔ´ò¿ªÐí¶à¸ö×ÊÔ´¹ÜÀíÆ÷½øÐÐÎļþµÄÒƶ¯¸´ÖƲÙ×÷¡£µ«ÓÐʱ³öÓÚijÖÖ¿¼ÂÇ£¨±ÈÈ簲ȫÐÔ£©£¬ÎÒÃÇÒª×ö³öһЩÏÞÖÆ£¬ÈóÌÐòÖ»Äܹ»ÔËÐÐÒ»¸öʵÀý¡£ÔÚDelphi±à³ÌÖУ¬±ÊÕß×ܽá³öÁËÒÔϼ¸ÖÖ·½·¨£º
¡¡¡¡Ò»¡¢ ²éÕÒ´°¿Ú·¨
¡¡¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ