Управление 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