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

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³öPascalµÄ±£Áô×ÖÖÐÓëÆäÏàÆ¥ÅäµÄ×Ö·û´®Áбí"procedure"¡¢"program"¡¢"property"¡£
¡¡¡¡ÔÚÀûÓÃ×Ô¶¯Íê³É¹¦ÄÜÇ°£¬±ØÐëÒªÖªµÀ×Ô¶¯Íê³É²¢²»ÊÇÈÎÒâ°æ±¾µÄWindows¶¼Ö§³Ö£¬×Ô¶¯Íê³É¹¦ÄÜʵ¼ÊÉÏÊÇÓÉInternet Explorer 4.0ÒýÈë²¢±ØÐëÓÐ4.71°æ¼°ÒÔÉϵÄShell32.dllµÄÖ§³Ö¡£ºÜ¶àÔçÆÚµÄϵͳ£¬°üÀ¨ºÜ¶à°²×°ÁËIE 4µÄϵͳ²¢²»Ö§³ÖÕâÏîÌØÐÔ£¬ËùÒÔʹÓÃ×Ô¶¯Íê³É¹¦ÄÜʱ±ØÐëÈ·±£Òª°²×°µÄϵͳ֧³ÖÕâÏÄÜ£¬Èç¹û²»Ö§³Ö¾ÍÐèÒª°²×°IEºÍ¼¯³ÉÍâ¿Ç¡£
¡¡¡¡×Ô¶¯Íê³É¹¦ÄÜÊÇͨ¹ýÒ»×éCOM½Ó¿ÚÀ´ÊµÏֵġ£ÕâЩ½Ó¿ÚʹÎÒÃÇ¿ÉÒÔÁ¬½Ó×Ô¶¯Íê³Éµ½±à¼­¿ò£¬Ìí¼Ó±à¼­¿ò¿ÉÒÔö¾ÙµÄ×Ö·û´®ÁÐ±í²¢ÅäÖÃÆäÏÔʾÊôÐÔ¡£
¡¡¡¡1. ×Ô¶¯Íê³ÉµÄÓÃ;
¡¡¡¡Ê¹ÓÃ×Ô¶¯Íê³É¹¦ÄÜ¿ÉÒÔÔöÇ¿³ÌÐòµÄÒ×ÓÃÐÔ£¬Ëü¿ÉÒÔ½ÚÊ¡Óû§·´¸´ÊäÈëһЩ³£ÓÃ×Ö·û´®µÄʱ¼ä£¬²¢¼õÉÙÊäÈë´íÎó¡£Ëü»¹¿ÉÒÔÓÃÓÚ²¿·Ö×Ö·ûÆ¥ÅäµÄ²éÕÒϵͳ£¬¿ÉÒÔÓÃËüʵÏÖ¶ÔÊý¾Ý¿âÄÚÈݵĿìËÙ²éÕÒ¡£ÁíÍ⣬Ëü»¹Ö§³ÖÏòä¯ÀÀÆ÷ÀúÊ·¡¢×î½üÔËÐгÌÐòºÍÍâ¿ÇĿ¼ÊäÈëµÈ¹¦ÄÜÖÐÌí¼Ó×Ô¶¨ÒåµÄÍê³ÉÁÐ±í¡£
¡¡¡¡2. ÅäÖÃ×Ô¶¯Íê³É
¡¡¡¡ÐèÒªÖªµÀµÄÊÇÔÚDelphiÀﲢûÓÐÌṩ×Ô¶¯Íê³É¹¦ÄÜÏà¹ØCOM½Ó¿ÚµÄpascalÉùÃ÷µ¥Ôª¡£ÓÉÓÚÒ»°ãÕâÀà½Ó¿ÚÔÚ΢Èí¶¼ÊÇÒÔCÓïÑÔµÄÍ·ÎļþÐÎʽÌṩ½Ó¿Ú£¬Delphi²»¿ÉÄܼ°Ê±Ìṩ×îеÄÏàÓ¦µÄPascal°ü×°µ¥Ôª¡£ËùÒÔΪÁËʹÓÃÕâÏÄÜ£¬±¾ÎÄÖжîÍâÌṩÁËÒ»¸öshlintfµ¥Ôª·­ÒëÁËÏàÓ¦µÄÍ·ÎļþµÄÉùÃ÷¡£Ï±í×ܽáÁËShlintfµÄÄÚÈÝ£º
COM¶ÔÏó
½Ó ¿Ú
CLSID_AutoComplete
IAutoComplete
CLSID_ACLHistory
IAutoComplete2
CLSID_ACListISF
IACList
CLSID_ACLMRU
IACList2
CLSID_ACLMulti
ICurrentWorkingDirectory
 
IObjMgr
¡¡¡¡×Ô¶¯Íê³É¹¦ÄÜ×î»ù±¾µÄÒ»¸ö½Ó¿Ú¾ÍÊÇIAutoComplete½Ó¿Ú£¬ËüµÄÉùÃ÷ÈçÏ£º
type
IAutoComplete = interface(IUnknown)
[SID_IAutoComplete]
function Init(hwndEdit: HWND; punkACL: IUnknown; pwszRegKeyPath: PWideChar;
pwszQuickComplete: PWideChar): HResult; stdcall;
function Enable(fEnable: Boolean): HResult; stdcall;
end;
¡¡¡¡IautoComplete½Ó¿ÚÓÐÁ½¸ö·½·¨£ºInitºÍEnable¡£
¡¡¡¡Init·½·¨ÓÃÀ´°ÑIAut


Ïà¹ØÎĵµ£º

delphi ²ð·Ö×Ö·û´®

×î½üÔÚʹÓÃDelphi¿ª·¢Ò»ÖÖÓ¦ÓÃϵͳµÄ¼¯³É¿ª·¢»·¾³¡£ÆäÖÐÐèҪʵÏÖÒ»¸ö×Ö·û´®²ð·Ö¹¦ÄÜ£¬·½·¨»ù±¾Ô­ÐÍÓ¦¸ÃÊÇ£º
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
Ä¿µÄÊÇʹÓÃ×Ö·ûch²ð·Ösrc×Ö·û´®£¬°Ñ²ð·ÖµÄ½á¹û·ÅÈëstringListÖС£ÀýÈ磺src:='abc|def|ghi'; ch='|'µÄʱºò£¬·µ»ØµÄstringLis ......

DELPHIÃæÏò¶ÔÏó²Î¿¼

¡¡¡¡DELPHIÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡³ÂÆæ 2005-07-21
¡¡¡¡Ò»¡¢ÀàºÍ¶ÔÏó
¡¡¡¡ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¡¡¡¡¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¡¡¡¡¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓڶѡ£
¡¡¡ ......

ÈçºÎÈÃDelphiµ÷ÓÃÍⲿ³ÌÐò²¢µÈ´ýÆäÔËÐÐÐÅÏ¢£¨Èç½áÊø£©

º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......

DelphiÖÐÓÃADOÁ¬½ÓÊý¾Ý¿â

´ËÎÄÊʺÏDelphiÐÂÊÖÔĶÁ£¬ÌرðÊÇÁ¬½ÓÊý¾Ý¿â·½Ã滹һ¶®°ë¶®ÉõÖÁ¸ù±¾²»¶®µÄÐÂÊÖ£»
     --------------------------µ«×ÜÌåÏÔµÃÓеãÂÒ-------------------------
     ±¾ÎÄÕÂÒÔDelphi 7ºÍSQL Server 2000ΪÀý£¬¿Ø¼þÃû¾ùΪϵͳĬÈÏ£¬ÈçUnit1,DataModule1,Edit1,ADOCommand1,ADODataS ......

delphiÖÐʹÓÃ͸Ã÷¿Ø¼þµÄ¼¸ÖÖ·½·¨

ÓÐʱÐèҪʹÓÃ͸Ã÷¿Ø¼þÓÃÓÚ²¶»ñÊó±êÏûÏ¢
1.µ÷ÓÃWindows2000,xpеÄAPIº¯ÊýʵÏÖÕâÒ»¹¦ÄܵĹý³Ì¡£Ê¹ÓÃSetLayeredWindowAttributes
2.Ö±½ÓÉèÖÿؼþµÄalphablend,alphablendvalue£¬¼ä½Óµ÷ÓÃÉÏÊöapi.
3.ʹÓÃTStaticText¿Ø¼þ
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ