Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
¦p¦ó¥Îdelphi ¼g¤@Óinstall µ{¦¡¡A±N³\¦hproject ²Õ¦¨¤@Ógroup(µ{¦¡²Õ)¡A¦bµ{¦¡²Õùتºicon ¦U¥Nªí¤@Óproject¡A½Ð°Ýn«ç»ò§@???
n²£¥Í¸s²Õ»P¹Ï¹³, ±`¥Îªº¤èªk¬O»Pµ{¦¡ºÞ²zû¶i¦æ DDE ¹ï¸Ü,©I¥sµ{¦¡ºÞ²zû¨Æ¥ý¹w³Æ¦nªº¥¨¶°, Ãö©ó³o¨Ç, ¥H¤U¦³¤@Ó¨Ò¤l±z¥i¥H°Ñ¦Ò¬Ý¬Ý:
(Delphi 1.0 + CWindows 3.1, §Ú¦b Windows 95 ¤]¸Õ¶]¤@¦¸, ok, it is work)
![]() |
1. File | New Project |
![]() |
2. ¦b Form ¤¤¦w¸m¤@Ó TDDEClientConv ¤¸¥ó(¦b¤¸¥ó½L System ¨ºÓ Tab) |
![]() |
3. ¹ï©ó DdeClientConv1, ¦b Object Inspector ¤¤ÂI¤@¤U DdeService ³oÓÄÝ©Ê,
µM«áÂI¤@¤U¦b¨ä¥k¤è'...'ªº«ö¶s, µM«á
¦b DdeService ³oÄæ¶ñ¤J ProgMan ¦b DdeTopic ³oÄæ¶ñ¤J Progman |
![]() |
4. ¹ï©ó DdeClientConv1 ±N ConnectMode ³]¬° ddeManual |
![]() |
5. ¦b Form1 ¤¤¦w±Æ¤@Ó TButton |
![]() |
6. ¦b Button1 ªº OnClick ¨Æ¥ó:
procedure TForm1.Button1Click(Sender: TObject); var sMacro: String; szMacro: Array[0..254] of Char; sGroupDesc, sGroupName: String; sProgDesc: String; sProgIcon: String; begin (* ¥´¶}¹ï¸Ü³q¸ô *) if not DdeClientConv1.OpenLink then begin ShowMessage('µLªk«Ø¥ß DDE ³sµ²'); Exit; end; (* «Ø¥ß²Õ¸s *) sGroupDesc := '¯Â´ú¸Õªº Group'; sGroupName := 'Test'; (* ²Õ¦¨¥¨¶°«ü¥O *) sMacro := '[CreateGroup(' + sGroupDesc + ',' + sGroupName + ')]'; StrPCopy(szMacro, sMacro); (* Âন Null-Term. ¦r¦ê *) DdeClientConv1.ExecuteMacro(szMacro, False); (* °õ¦æ¥¨¶°«ü¥O *) (* «Ø¥ß Icon ¹Ï¹³ *) sProgIcon := 'c:\windows\notepad.exe'; sProgDesc := '°O¨Æ¥»'; sMacro := '[AddItem(' + sProgIcon + ',' + sProgDesc + ')]'; StrPCopy(szMacro, sMacro); (* Âন Null-Term. ¦r¦ê *) DdeClientConv1.ExecuteMacro(szMacro, False); (* Ãö³¬ DDE ¹ï¸Ü *) DdeClientConv1.CloseLink; end; |
![]() |
7. ¦sÀÉ«á, °õ¦æ¬Ý¬Ý§a! |
·íµM, ¦pªGn¼g¤@Ó¦w¸Ëµ{¦¡, ³Ì§Öªº¤èªk¬O¦p'¸¯·çµá'¥S©Ò»¡ªº,¨ì Delphi Super Page ¤¤§ä¤@¨Ç¦n¥Îªº¤¸¥ó, ¥H¤W³o½g, ¯ÂÄݬã¨s©Ê½è, ¶¶«K¸Õ¸Õ DDE ¦Ó¤w
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |