DDE

[jamesb]

procedure Command(Service, Cmd: String);
begin
try
DDE := TDDEClientConv.Create(nil);
DDE.SetLink(Service, 'COMMAND');
DDE.OpenLink;
DDE.PokeData('COMMAND', PChar(Cmd));
finally
DDE.Free;
end;
end;



it works for: Command('mIRC', '/msg #Channel Hello ');

i cant figure out how to send in channel content of Label1.Caption, any help with this?

James

[Norrit]

Should be easy:

Command('mIRC', Format('/msg #Channel %s ', [Label1.Caption]));

MvG
Peter


Objective reality is a delirium caused by lack of alcohol in blood.
24 hous in a day, 24 beers in a case. Coincidence ???
There are 10 kinds of people: Those who understand binary and those who don't

[jamesb]

it works great, the only problem is that when a $ sign is there the $ and numbers after it are not showing.

for example: $100 shows nothing in channel
$0.01 shows 0 only

James

[Norrit]

Hi ...

This can be done also:

Command('mIRC', '/msg #Channel ' + Label1.Caption);

Perhaps you'll need to typecast:

Command('mIRC', PChar('/msg #Channel ' + Label1.Caption));

MvG
Peter

Objective reality is a delirium caused by lack of alcohol in blood.
24 hous in a day, 24 beers in a case. Coincidence ???
There are 10 kinds of people: Those who understand binary and those who don't