DelphiÖпØÖÆVBA ºê
ÈçºÎÔÚDelphiÀïÃæÀûÓÃWordµÄVBA´úÂë½øÐÐһЩ×ܽᡣ
1¡¢ Éú³ÉVBA´úÂë¡£Word±¾Éí¾ßÓкÜÇ¿µÄ¿ÉÀ©Õ¹ÐÔ£¬ÓÈÆäÊÇÖ§³ÖÓû§×Ô¶¨Ò幦ÄÜ£¬ÆäʵÏÖ
µÄÖ÷Òª·½Ê½¾ÍÊÇͨ¹ýVBA´úÂëÀ´ÊµÏֵġ£ÔÚ“¹¤¾ß->ºê->Visual Basic±à¼Æ÷”ÀïÃæ¾Í¿ÉÒÔ¿´
µ½¾ßÌåµÄºê´úÂ룬¿ÉÒÔÖ±½Ó½øÐб༡£¶øÇÒ»¹¿ÉÒÔʹÓÃÂ¼ÖÆºêµÄ¹¦ÄÜ×Ô¶¯Éú³Éºê´úÂë¡£·½·¨ÊÇ
Ñ¡Ôñ“¹¤¾ß->ºê->Â¼ÖÆÐºꔣ¬È»ºóÖ´ÐÐ×Ô¼ºÏëͨ¹ý³ÌÐòʵÏֵŦÄÜ£¬Èç´æÅÌ¡¢´òÓ¡µÈ¹¦ÄÜ£¬
´ËʱWordÒ»±ßÖ´ÐÐÄãҪʵÏÖ¹¦ÄÜ£¬Ò»±ß½«ÄãµÄ²Ù×÷Éú³ÉÁËÒ»¸öºê£¬ÔÚʵÏÖ¹¦Äܺ󣬿ÉÒÔÑ¡Ôñ
“¹¤¾ß->ºê->VisualBasic±à¼Æ÷”£¬²é¿´Éú³ÉµÄºê´úÂë¡£
ÀýÈ磺ÎÒÃÇÒª½«ÎĵµÖеēÌÖÂ۔ȫ²¿Ìæ»»³É“ÑÐÌÖ”¡£
a£® µã»÷“¹¤¾ß->ºê->Â¼ÖÆÐºꔣ¬Ö±½Óµã»÷È·¶¨£¬Ä¬Èϵĺ걣´æµ½ÁËNormal.dotϵͳ¹«
ÓÃÄ£°åÀïÃæ¡£
b£® µã»÷“±à¼->²éÕÒ”£¬³öÏÖµ¯³ö¶Ô»°¿ò£¬ÊäÈë²éÕÒºÍÌæ»»µÄ×Ö£¬µãÈ·¶¨¡£½øÐÐÌæ»»¡£
c£® ½áÊøºêµÄÂ¼ÖÆ£¬µã»÷½áÊø°´Å¥¡£
d£® °´F11»òÕß“¹¤¾ß->ºê->Visual Basic ±à¼Æ÷”£¬²é¿´ºê´úÂ롣ȱʡ²é¿´NormalÀïÃæ
µÄÄ£¿éÀïÃæµÄNewMacrosÄ£¿é¡£
ÒÔÏÂÊÇÉú³ÉµÄºê´úÂ룺
Sub Macro1()
'
' Macro1 Macro
' ºêÔÚ 2002-2-1 ÓÉ yzhshi Â¼ÖÆ
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ÌÖÂÛ"
.Replacement.Text = "ÑÐÌÖ"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Re
Ïà¹ØÎĵµ£º
Ò»Ö±ÏëÈÃDelphi×öΪRIA£¬¶øÒµÎñ²ãʹÓÃJava£¡½ñÌìûÊÂ×ö£¬¼òµ¥ÊµÏÖÁËһϣ¡
ĿǰÓÐ2ÖÖ·½°¸£º
WebService
IndyHttpµ÷ÓÃServlet
ÒÔÏÂÊÇÓÃIndyHttpÀ´µ÷ÓÃServlet
Ò»¡¢ÏÈдһ¸öhelloworldµÄServlet
1.±àдuiÒÔ¼°service
//¹¤¾ß°ü
package com.cdrs.jutils;
import java.io.IOException;
import java.util.Date;
impor ......
Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð ÊÕ²Ø
Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö“ϵͳ·þÎñ³ÌÐò”µÄ½ø³Ì£¬ÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ðÊÇ£º
ϵͳ·þÎñ²»Óõǽϵͳ¼´¿ÉÔËÐУ»
ϵͳ·þÎñÊÇÔËÐÐÔÚSystem Idle Process/System/smss/winlogon/servicesÏµģ¬¶ø×ÀÃæ³ÌÐòÊÇÔËÐÐÔÚExplorerϵģ»
......
Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
´ò¿ªDelphi±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......
delphiÖÐWebbrowserµÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
htmÖÐ<script> var currID=123</script>
³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID
ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......
ÓÉÓÚÐèÒªÔÚ´°ÌåÖÐÉ趨һ¸öÈÕÆÚʱ¼ä£¬³öȥͨÓÃÐÍ¿¼ÂÇ£¬²ÉÓÃÁËTDateTimePicker¿Ø¼þ¡£
ÒòΪÕâ¸ö¿Ø¼þµÄĬÈÏ״ֻ̬ÄÜÏÔʾÈÕÆÚ£¬Ôì³ÉʹÓÃÉϵIJ»±ã£¬ËùÒÔÐèÒª×öÈçϵÄÉ趨£º
ÔڿؼþµÄformatÊôÐÔÀ¸ÀïÉèÖÃÈçÏÂÖµ£ºyyyy-mm-dd hh:mm:ss£»
É趨Íê³ÉºóµÄʱ¼äΪµ±Ç°µÄϵͳʱ¼ä£¬²»ÄÜͨ¹ýµ¯³öÈÕÀúÉ趨£¬Ö»ÄÜÔÚÎı¾¿òÖÐÉ趨¡£ ......