Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

NET SEND UNTER DELPHI

OVERNOISE / 2 Antworten / Baumansicht Nickles

hat jemand vielleicht ne ahnung wie ich unter delphi ein net send ohne eine batch datei hinbekomme? ich weiss nich genau welche datei ich dazu öffnen muss!
mit der cmd gehts ja nich weil wegen anwendung oder doch?

bei Antwort benachrichtigen
the_small OVERNOISE „NET SEND UNTER DELPHI“
Optionen

Versuch das mal, hab ich aus nem anderen Forum


function NetSend(dest, Source, Msg: string): Longint; overload;
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;
SourceWideChar := nil;
DestWideChar := 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
Result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
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;

function NetSend(Dest, Msg: string): Longint; overload;
begin
Result := NetSend(Dest, '', Msg);
end;

function NetSend(Msg: string): Longint; overload;
begin
Result := NetSend('', '', Msg);
end;


MfG the_small

bei Antwort benachrichtigen
OVERNOISE the_small „Versuch das mal, hab ich aus nem anderen Forum function NetSend dest, Source,...“
Optionen

thx ich werds ma probieren! aber so weit ich weiss geht das auch einfacher zu mindest im VB ;) hmm naja....thx

bei Antwort benachrichtigen