Delphi ·¢²¼ActiveX¿Ø¼þ Êý×ÖÇ©Ãû£¨×ª£©
Ô×÷Õߣº¹âÃ÷ÐÖµÜ
×î½üÎÒÕýÔÚÑо¿ActiveX¼¼Êõ¡£ÎÒʹÓÃDelphi 7´´½¨ÁËÒ»¸ö¾ßÓÐActiveFormµÄActiveX¿Ø¼þÓ¦ÓóÌÐò¡£Õâ¸ö¿Ø¼þ²úÉúÒ»¸ö.OCXÎļþ¡£ÏÖÔÚ£¬ÎÒÐèÒª°ÑÕâ¸ö¿Ø¼þ²¿ÊðÔÚ·þÎñÆ÷¶Ë£¬ÔÚÓû§ä¯ÀÀÍøÒ³²¢Ñ¡Ôñ°²×°Õâ¸ö¿Ø¼þµÄʱºò£¬Óû§µÄIE²Å»áÏÂÔØ¡¢°²×°²¢ÏÔʾÕâ¸ö¿Ø¼þ¡£
µ«ÊÇÎҵĿؼþ±ØÐë×÷Êý×ÖÇ©ÃûÒÔºó£¬IE²Å»áÏÂÔØ°²×°¡£ÎÊÌâÊÇÈçºÎ¸øActiveX¿Ø¼þ×÷Êý×ÖÇ©ÃûÄØ£¿ÏÖ½«¾ßÌå²½ÖèÓë´ó¼Ò·ÖÏí¡£
Ê×ÏÈÎÒÐèÒªÒ»Ì××öÊý×ÖÇ©ÃûµÄ¹¤¾ß¡£Èç¹ûÄãûÓУ¬¿ÉÒÔµ½ÒÔϵØÖ·ÏÂÔØ£º
http://files.cnblogs.com/babyt/SignTool.rar
¿Ø¼þµÄÃû×ÖÊÇCustForm.ocx¡£Ê×ÏÈ£¬ÎÒÃÇÐèÒª´´½¨Ò»¸ö.CABÎļþÓÃÀ´°ÑËùÓÐÐèÒª·¢²¼µÄÎļþѹËõÔÚÒ»Æð¡£ÎÒÃÇÐèÒªÒ»Æð·¢²¼µÄÎļþÊÇCustForm.licÎļþ¡£ËüÊÇDelphiÔÚÎÒÃÇ´´½¨¿Ø¼þ¹¤³ÌµÄʱºòΪÎÒÃÇÉú³ÉµÄ¡£Èç¹û²»·¢²¼Õâ¸öÎļþ£¬ÄãµÄ¿Ø¼þ¼´Ê¹ÏÂÔØ°²×°³É¹¦£¬IEÒ²ÎÞ·¨ÏÔʾËü¡£
ΪÁËÔÚÒ»¸ö.CABÎļþÖз¢²¼¶à¸öÎļþ£¬ÎÒÃDZØÐëÏÈ´´½¨Ò»¸ö.INFÎļþ¡£Ò»¸ö.INFÎļþ¿ÉÒÔ¸æËßIE£¬ËüÐèÒªÏÂÔØµÄÎļþºÍÔÚÄÄÀï¿ÉÒԵõ½ÕâЩÎļþ¡£
1. ´´½¨.INFÎļþ
´´½¨Ò»¸ö.INFÎļþºÜ¼òµ¥£¬ÓüÇʱ¾³ÌÐò±àд¾Í¿ÉÒÔÁË¡£ÎÒÃǰÑÎÒÃǵÄ.INFÎļþÈ¡ÃûΪGMTestX.inf¡£ÒòΪÎÒÃÇÒªÔÚ.CABÎļþÖзÅÈëGMTest.ocxºÍGMTest.licÕâÁ½¸öÎļþ£¬ËùÒÔÎÒÃǵÄ.INFÎļþµÄÄÚÈÝÈçÏ£º
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[version]
signature="$CHICAGO$"
dvancedINF=2.0
[Add.Code]
CustForm.ocx=CustForm.ocx
CustForm.lic=CustForm.lic //Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
[CustForm.ocx]
file-win32-x86=thiscab
clsid={C504DF79-C5EC-4314-AC3E-1F770DB81A01}
FileVersion=1,0,0,0
RegisterServer=yes
[CustForm.lic]//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
file-win32-x86=thiscab//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
FileVersion=1,0,0,0//Èç¹û´´½¨Active FormʱûÓÐÑ¡ÔñMake Conctrol Lincensed Ôò²»»á²úÉú.licÎļþ£¬ÄÇô´´½¨.infÎļþʱ¿ÉÈ¥µô´ËÐÐ
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ÔÚÕâ¸ö.INFÎļþµÄ[version]²¿·ÖÓÐÁ½¾ä´úÂë¡£signature="$CHICAGO$"±íʾÕâ¸ö.INFÎļþºÍWindows95»òÆäºó°æ±¾ºÍWindows NT 4.0»òÆäºóµÄ°æ±¾¼æÈÝ¡£AdvancedI
Ïà¹ØÎĵµ£º
½«Ô¶³Ì¿ØÖÆÓ¦ÓÃÓÚ½ÌѧÖУ¬ÒѳÉΪĿǰ¼ÆËã»ú»¯½ÌѧµÄÖØÒªÊֶΡ£Ò»¶¨ÓкܶàµÄÍø³æÏëÁ˽âÕâÖÖÍøÂç½Ìѧ·½Ê½µÄ±à³ÌÔÀí°É¡£ÔÚ´ËÎÒÃǾÍÒÔÒ»¸ö¼òµ¥µÄÔ¶³Ì¿ØÖƳÌÐò×÷ΪʾÀý£¬ËµÃ÷ÕâÖÖÍøÂç±à³ÌµÄ»ù±¾ÔÀí¡£±¾³ÌÐòÒÔDelphi±à³ÌΪÀý¡£
¡¡¡¡Æäʵ¸Ã³ÌÐòµÄ¹¤×÷»úÖÆºÜ¼òµ¥£¬Êܿط½ÔËÐÐÒ»¸ö³ÌÐò£¬ÓÃÓÚÕìÌý¶Ë¿Ú²¢½ÓÊÕÊý¾Ý°ü£¬¶øÖ÷¿Ø·½Í¨¹ý¶ ......
delphi ±àдµÄcom ¶ÔÏó ÓÃdelphi µÄµ÷ÓÃʵÀý
COM ¶ÔÏóÓë ǰһƪÎÄÕ嵀 PHPµ÷ÓõÄCOMΪͬһ¸ö¶ÔÏ󣬹ʲ»Àý³öCOM.
procedure TForm1.Button4Click(Sender: TObject);
var
myCounter, mReturn: variant;
begin
myCounter := CreateOleObject('abc.myxml');
mReturn := myCounter.xml;
&nbs ......
delphi ×¢²á com ¶ÔÏóµÄ·½·¨
procedure TForm1.Button3Click(Sender: TObject);
var
Sd: TSecurityDescriptor;
begin
InitializeSecurityDescriptor(@Sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@Sd, true, Nil, false);
RegSe ......