Форум: "Сети";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Вниз

Сообщение в Wundows2000   Найти похожие ветки 

← →
Evgen138   (2003-11-12 08:15) [0]

Дрям всем!
Поскажите пожалуйста как можно отправить сообщение на конкретный компьютер в сети.
Видел в одной проге, при отправке сообщения у получающего выскакивает информационное окно с текстом сообщения
как это можно сделать?

---

← →
Aristokrat   (2003-11-12 08:42) [1]

информационное или как net send?

---

← →
Rouse_   (2003-11-12 10:03) [2]

Через майлслоты...

Желаю успехов

---

← →
Rouse_   (2003-11-12 10:10) [3]

http://delphimaster.net/view/6-1066114577/

Желаю успехов

---

← →
sapsi   (2003-11-12 10:20) [4]

WinExec(Pchar("net send " + compname+" "+"мое сообщение"),SW_HIDE);

---

← →
Aristokrat   (2003-11-12 10:24) [5]

в D6, Win2k мона с помощью API с возможностью сокрытия абонента

---

← →
Rouse_   (2003-11-12 11:10) [6]

Ну так я ж дал ссылку с примером на апях ;)

---

← →
Aristokrat   (2003-11-12 11:20) [7]

а я по другому немного делаю :)


unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls {Обязательно}, ShellApi;

type
TForm1 = class(TForm)
ToEdit: TEdit;
FromEdit: TEdit;
SendButton: TButton;

TextEdit: TEdit;
procedure SendButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
HostName: LPCWSTR;
RName: LPCWSTR; //Имя компьютера куда сообщение
buf: Pointer;
text: String; //Сам техт сообщение
size: Integer;
From: PWideChar ; // От какого имени :))

// Объвление самой функции
Function NetMessageBufferSend (
servername: LPCWSTR; msgname: LPCWSTR;
fromname: LPCWSTR; buf: Pointer;
buflen: DWORD): longint; stdcall; external "netapi32.dll";

implementation

{$R *.dfm}

procedure TForm1.SendButtonClick(Sender: TObject);
begin

HostName := Nil; // Не помню зачем :))
RName:=StringToOleStr(ToEdit.Text); //Считываем Имя КОМУ
text := TextEdit.Text; // Считываем техт сообщения
From := StringToOleStr(FromEdit.Text);// Считываем от какого имени посылать :))
// Вычисляем и преобразуем
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
// ну и сама отправка сообщения
If NetMessageBufferSend (HostName, RName, From , buf, size) <> NO_ERROR
then
ShowMessage ("Message Error to "+RName)
else
ShowMessage("Message Post to "+RName);
end;

end.


---

← →
Aristokrat   (2003-11-12 11:22) [8]

З.Ы.

Правда в 98 проблемы :((

---

← →
Rouse_   (2003-11-12 12:29) [9]

Вот - вот!
А мой код работает и там и там без проблем ;)

---

← →
evgeniy32   (2003-11-12 19:43) [10]

Огромное всем спасибо!

---

← →
Aristokrat   (2003-11-17 13:26) [11]

> Rouse_ © (12.11.03 12:29) [9]
> Вот - вот!
> А мой код работает и там и там без проблем ;)

а вопрос был по Win2k :tease:

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.009 c