Управление mIRC при помощи DDE
Falk0ner, вс, 06/07/2008 - 15:35.
Управление 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;
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
Отправить комментарий