kurzer delphi code => PB
Verfasst: 04.02.2005 21:27
Hi,
ich interessiere mich dafür, wie man per net.exe anonyme nachrichten verschicken kann. Bin neugierig
. Hab im Internet jemanden gefunden,
der erklärt hat wie das vom prinzip her funktioniert und hat mir sogar nen kurzen code dafür gegeben. Doch leider nur in Delphi
.
Wenn das jemand von euch übersetzen könnt, wäre das SUPER
Vielen dank im vorraus.
mfg. Kooky
ich interessiere mich dafür, wie man per net.exe anonyme nachrichten verschicken kann. Bin neugierig
. Hab im Internet jemanden gefunden,der erklärt hat wie das vom prinzip her funktioniert und hat mir sogar nen kurzen code dafür gegeben. Doch leider nur in Delphi
.Wenn das jemand von euch übersetzen könnt, wäre das SUPER
Code: Alles auswählen
Function SendToMailSlot(Const Server, Slot, Mail : String) : Boolean;
Var
hToSlot : THandle;
BytesWritten : DWord;
FullSlot : String;
Begin
FullSlot := '\\'+Server+'\mailslot\'+Slot; // MailSlot
hToSlot := CreateFile(
PChar(FullSlot),
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
If hToSlot = INVALID_HANDLE_VALUE Then
Exit;
Try
BytesWritten := 0;
If (NOT WriteFile(hToSlot,
Pointer(Mail)^,
Length(Mail),
BytesWritten,
NIL)) Or
(BytesWritten <> Length(Mail)) Then
Exit; // Fehler
Result := True; // Alles okay
Finally
CloseHandle(hToSlot);
End;
End;mfg. Kooky
