Управление mIRC при помощи DDE |
Previous Top Next |
Code: |
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; |
©Drkb::04508
Взято с сайта: http://www.swissdelphicenter.ch