2010-07-08 85 views

回答

4

您可以使用idIRC INDY組件德爾福

idIRC - 客戶端組件,提供了一個功能齊全的IRC

OR

uses 
    DdeMan; 

procedure mIRCDDE(Service, Topic, Cmd: string); 
var 
    DDE: TDDEClientConv; 
begin 
    try 
    DDE := TDDEClientConv.Create(nil); 
    DDE.SetLink(Service, Topic); 
    DDE.OpenLink; 
    DDE.PokeData(Topic, PChar(Cmd)); 
    finally 
    DDE.Free; 
    end; 
end; 

示例

mIRCDDE('mIRC', 'COMMAND', '/dde mirc connect "" stork.doc.ic.ac.uk,6667,#mIRC,1'); 
mIRCDDE('mIRC', 'COMMAND', '/say Hallo'); 
+0

隨着Delphi和mIRC的當前版本,您需要使用AnsiString。原因是默認的字符串類型是WideString,這與支持Ansi或Unicode的mIRC(但僅在Ansi中響應)不兼容。我會編輯答案,但將「String」更改爲「AnsiString」並不足以接受編輯。 – KeyszerS 2014-08-22 19:51:37

相關問題