Net Send из приложения

← →
Tomkat (2005-01-21 13:28) [0]

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

← →
Pashkerton (2005-01-21 13:48) [1]

winexec(PChar("net send имя_машины сообщение"),SW_RESTORE);

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

← →
Style © (2005-01-21 14:09) [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;

Tomkat (21.01.05 13:28)

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

см. NetMessageBufferSend

Net Send из приложения Найти похожие ветки