Советы по Delphi

         

и не нашёл то что


Ura! делится своим опытом:

посмотрел я советы и не нашёл то что искал, вернее то что нашёл работает только под NT. Вот в одной конференции наткнулся на код на С, я его чуть-чуть переделал и вот что у меня получилось

    function TNetF.SendNetMess(ToMess:PChar;TextMess: PChar):Boolean;
var hSlot: HWND;
buf : array[0..100]of char; cb: DWORD; FromMess: array[0..20]of char; begin
CharToOem(TextMess,TextMess);

CharToOem(ToMess,ToMess); FromMess:='Администратор сети'+#0; CharToOem(FromMess,FromMess); Result:=False; hSlot:= CreateFile(PChar(ToMess+'\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0); if hSlot <> INVALID_HANDLE_VALUE then begin cb:=0; StrECopy(StrECopy(StrECopy(buf,FromMess)+1,ToMess)+1, TextMess); //1. From
cb:=cb+StrLen(FromMess)+1; //2. To
cb:=cb+StrLen(ToMess)+1; //3. Само сообщение
//   CharToOem(buf, buf);
cb:=cb+StrLen(TextMess)+1; Result:=WriteFile(hSlot, buf, cb, cb, nil); CloseHandle(hSlot); end; end;
[001997]


Содержание раздела