Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Net Send из приложения [D6, Win2k]

Tomkat © (2005-01-21 13:28:00)
Hi, мастера ! Кто подскажет, как отправить сообщение Net Send со своего приложения ?
Заранее благодарен !

BiN (2005-01-21 14:18:00) [1]
Tomkat (21.01.05 13:28)

Hi, мастера ! Кто подскажет, как отправить сообщение Net Send со своего приложения ?
Заранее благодарен !

см. NetMessageBufferSend

Style (2005-01-21 14:09:00) [2]
Что-то типа того..

procedure TNMKMailSlot.WINPOPUPSend(Domain : string; CFrom : PChar; CTo : string; Text: PChar);
var
st: array [0..200] of char;
SlotFile: THandle;
SimpleBytes: LongWord;
header: string;
c_from,c_to,c_text,Msg: pchar;
begin
c_from := CFrom;
c_to := PChar(CTo);
c_text := PChar(Text);
AnsiToOem(c_to,c_to);
AnsiToOem(c_from,c_from);
AnsiToOem(c_text,c_text);
StrPLCopy( st, '\\' + Domain + '\mailslot\messngr', 200);
SlotFile := CreateFile( st, GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

header := StrPas(c_from) + ' ' + StrPas(c_to) + ' ' + StrPas(c_text);
GetMem(Msg,Length(Header));
StrPCopy(Msg,header);
Msg[Length(c_from)] := Char(0);
Msg[Length(c_from) + Length(c_to) + 1] := Char(0);
WriteFile(SlotFile,Msg^,Length(Header),SimpleBytes, nil);
FreeMem(Msg,Length(Header));
CloseHandle(SlotFile);
end;

Pashkerton (2005-01-21 13:48:00) [3]
winexec(PChar('net send имя_машины сообщение'),SW_RESTORE);

http://www.nmarket.ru/program/delphi/lessons-2/les-4.php

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »