Mensajes instantaneos. Como?

[Alexandro]

Hola amigos:
Estoy tratando de hacer un programita que me permita enviar mensajes instantaneos como con el Net send del CMD. Se que puedo utilizar la funcion que tiene delphi llamada WinExec. Pero no se como usarla y como puedo pasarle los parametros.
Uso delphi 7. Espero me ayuden.
Gracias por adelantado.

[jhonny]

Un ejemplo de como utilizar WinExec o ShellExecute sería el siguiente:

http://www.clubdelphi.com/trucos/index.php?id=152&scroll=24&scrollb=399

[Nove bb net]

Mira este enlace, por si te puede ser util.

http://www.delphi3000.com/articles/article_2186.asp?SK=

Saludos.
Nove

[Alexandro]

Hola a todos y gracias por responder. He encontrado esto:

function NetSend(dest, source, msg: string): longint;
type
TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar; buf:
PWideChar; buflen: Cardinal): longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;

SourceWideChar : PWideChar;
DestWideChar : PWideChar;
MessagetextWideChar: PWideChar;

Handle : THandle;
begin

Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
exit;
end;
MessagetextWideChar := nil;
try
GetMem(MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(msg, MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if source = '' then
begin
result := NetMessageBufferSend(nil, DestWideChar, nil, MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1)
end else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar, MessagetextWideChar,
Length(msg) * SizeOf(WideChar) + 1);
freemem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;


Voy a probar. Les comento luego...