| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сообщение в Wundows2000 [D6, Win2k]
Evgen138 © (2003-11-12 08:15:00)
Дрям всем!
Поскажите пожалуйста как можно отправить сообщение на конкретный компьютер в сети.
Видел в одной проге, при отправке сообщения у получающего выскакивает информационное окно с текстом сообщения
как это можно сделать?
Aristokrat (2003-11-17 13:26:00) [1]
> Rouse_ © (12.11.03 12:29) [9]
> Вот - вот!
> А мой код работает и там и там без проблем ;)
а вопрос был по Win2k :tease:
evgeniy32 (2003-11-12 19:43:00) [2]
Огромное всем спасибо!
Rouse_ (2003-11-12 12:29:00) [3]
Вот - вот!
А мой код работает и там и там без проблем ;)
Aristokrat (2003-11-12 11:22:00) [4]
З.Ы.
Правда в 98 проблемы :((
Aristokrat (2003-11-12 11:20:00) [5]
а я по другому немного делаю :)
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.
Rouse_ (2003-11-12 11:10:00) [6]
Ну так я ж дал ссылку с примером на апях ;)
Aristokrat (2003-11-12 10:24:00) [7]
в D6, Win2k мона с помощью API с возможностью сокрытия абонента
sapsi (2003-11-12 10:20:00) [8]
WinExec(Pchar("net send " + compname+" "+"мое сообщение"),SW_HIDE);
Rouse_ (2003-11-12 10:10:00) [9]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1066114577&n=4
Желаю успехов
Rouse_ (2003-11-12 10:03:00) [10]
Через майлслоты...
Желаю успехов
Aristokrat (2003-11-12 08:42:00) [11]
информационное или как net send?
| |
