Cообщение (ShowMessage)

[mavlon_m]

Скажите пожалуйста как мне отправить сообщение на удаленном компьютере? Спасибо!

[DeDoK]

через сокеты, или тот же TITICQClien.
в сокетах помоему шлеш текст с клиента на свой сервер программу
и там обрабатуеш
вот код для сервера

procedure TForm1.ServerSocket1ClientRead(Sender:TObject;
 Socket : TCustomWinSocket);
var
s : string;
begin
s:=Socket.ReceiveText;
if s='msg' then
ShowMessage('ok');
end;

для клиентской части немного иначе

procedure TForm1.Button1Click(Sender : TObject);
begin
ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('msg');
ClientSocket1.Active:=false;
end;

иначе я незнаю как.

[Баламут]

Писал давно уже... Обрати внимание на следующие моменты:
1. В данном случае я использу библиотеку из JediAPI
2. Т.к. этот код я переделывал уже под Д2009, то и использовал уже юникод, а потому и WideChar.
3. Служба Messenger должна быть запущена как на локальной, так и на удаленной машине.

uses  JwaLmMsg;

var
  wDest: PWideChar;
  wSource: PWideChar;
  wMsg: PWideChar;
begin
wDest := nil;
wSource := nil;
wMsg := nil;

try
  GetMem(wMsg, Length(msg) * SizeOf(WideChar) + 1);
  GetMem(wDest, 20 * SizeOf(WideChar) + 1);
  StringToWideChar(msg, wMsg, Length(msg) * SizeOf(WideChar) + 1);
  StringToWideChar(Dest, wDest, 20 * SizeOf(WideChar) + 1);

  if Source = '' then
  Result := NetMessageBufferSend(nil, wDest, nil, PByte(wMsg),
  Length(msg) * SizeOf(WideChar) + 1)
  else
  begin
    GetMem(wSource, 20 * SizeOf(WideChar) + 1);
    StringToWideChar(Source, wSource, 20 * SizeOf(WideChar) + 1);
    Result := NetMessageBufferSend(wSource, wDest, wSource, PByte(wMsg),
    Length(msg) * SizeOf(WideChar) + 1);
    FreeMem(wSource);
  end;//Else
finally
FreeMem(wMsg);
FreeMem(wDest);
end;