Скачать: CL | DM;

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;

---

← →
BiN ©   (2005-01-21 14:18) [3]

Tomkat   (21.01.05 13:28)  

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

см. NetMessageBufferSend

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c