Управление mIRC при помощи DDE

Управление mIRC при помощи DDE

uses
  DdeMan;
 procedure mIRCDDE(Service, ic, Cmd: string);
 var
  DDE: TDDEClientConv;
 begin
  try
  DDE := TDDEClientConv.Create(nil);
  DDE.SetLink(Service, ic);
  DDE.OpenLink;
  DDE.PokeData(ic, PChar(Cmd));
  finally
  DDE.Free;
  end;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
  mIRCDDE('mIRC', 'COMMAND', '/say Hallo von SwissDelphiCenter.ch');
 end;

Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...