Daten aus Delphi über Irc ausgeben

[Pseudemys Nelsoni]

hi,

Delphi-Quellcode:

uses 
  DDEMan;

...

procedure TForm1.Button1Click(Sender: TObject); 
var 
  DDE: TDDEClientConv; 
begin 
  try
    DDE := TDDEClientConv.Create(nil);
    with DDE do
    begin 
      SetLink('mIRC', 'COMMAND'); 
      OpenLink; 
      PokeData('COMMAND', PChar('//echo -a blub'));
    end; 
  finally 
    DDE.Free; 
  end; 
end;