Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

Как задать автора сообщения?   Найти похожие ветки 

 
Max003   (2004-04-20 15:52) [0]

Я отправляю сообщения winexec("NET SEND a1 Текст сообщения"). Как можно сделать так, чтобы у получателя на месте "полученно сообщение от ..." высвечивался не мой адресс в локалке, а мой псевдоним. Помогите, пожалуйста, если кто знает, как это делается.


 
SammIk ©   (2004-04-20 15:55) [1]

Удалено модератором
Примечание: Не выражайся...


 
SammIk ©   (2004-04-20 15:58) [2]

Удалено модератором
Примечание: Не выражайся...


 
Rouse_ ©   (2004-04-20 16:05) [3]

Вот примерчик через NetMessageBufferSend...
На стиль не обращай внимания...

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

const
NetApi32 = "NetApi32.dll";
 function NetMessageBufferSend(
      servername:PWideChar ;
      msgname:PWideChar ;
      fromname:PWideChar ;
      buf:PWideChar ;
      buflen:DWORD):DWORD;stdcall;

var
 Form1: TForm1;

implementation

function NetMessageBufferSend; external NetApi32 name "NetMessageBufferSend";

{$R *.dfm}

Function SendLanMessage(FromName,ToName:String;Text:String):Boolean;
Var
RName,TName,HostName: LPCWSTR;
buf: Pointer;
size: Integer;
Begin
Result:=True;
HostName:=nil;

size := SizeOf (WideChar) * Length (FromName)+1;
GetMem (RName, Size);
RName :=StringToWideChar (FromName, RName, Length (FromName)+1);
size := SizeOf (WideChar) * Length (ToName)+1;
GetMem (TName, Size);
TName :=StringToWideChar (ToName, TName, Length (ToName) + 1);

// Перевод String в WideString
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
  TRY
    PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
    If NetMessageBufferSend (HostName, rname, tname, buf, size) <> NO_ERROR
      then  Result:=False;
  FINALLY
    FreeMem(buf);
    IF assigned(TNAME) then FreeMem(TName);
    IF assigned(RNAME) then FreeMem(RName);
    IF assigned(HOSTNAME) then FreeMem(HOSTNAME);
  END;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
 M: String;
begin
 M :=  stringofchar("q", 406);
 SendLanMessage("DESIGO", "DESIGOqwe", M);
end;

end.



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

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
4-1083483992
Coder
2004-05-02 11:46
2004.06.06
WM_CHAR


9-1075827431
ArhangelM
2004-02-03 19:57
2004.06.06
Коллизия Круга и Линии??


6-1082400273
andrysha
2004-04-19 22:44
2004.06.06
как сделать щоб програма следила за виходом новой версии


14-1084916190
Тупорылая_молодая_поросль
2004-05-19 01:36
2004.06.06
Хочу в орешник!!!


14-1084811479
Рулон Обоев
2004-05-17 20:31
2004.06.06
FAT-16