Mega Code Archive

 

Categories / Delphi / Activex OLE

 

Control mirc with dde

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; procedure TForm1.Button1Click(Sender: TObject); begin mIRCDDE('mIRC', 'COMMAND', '/say Hallo von SwissDelphiCenter.ch'); end;