Форум: "Сети";
Текущий архив: 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.46 MB
Время: 0.009 c