Formloses SocketProgramm

[sirius]

Ich kenn die Socket-Komponenten nicht ganz auswendig. Aber es könnte sein, dass sie mit Messages arbeiten. Deswegen würde ich mal eine Messageschleife vorschlagen. Ob das die Lösung ist kann ich so nicht sagen.
Messageschleife an sich sieht so aus

Delphi-Quellcode:

uses windows, messages
var msg:Tmsg;
...
while getmessage(msg,0,0,0) do 
begin
  translatemessage(msg); //nur nötig, wenn Tastendrücke ausgewertet werden müssen
  dispatchmessage(msg);
end;

Die Schleife wird mittels postquitmessage beendet. aber du müsstest dir das wahrscheinlich anders anpassen (vielleicht auch peekmessage und/oder waitmessage benutzen)....