Forum: Netzwerke
Delphi
by sirius,
22. Aug 2007
Irgendwie so vielleicht:
function readkey:char;
var buf:input_record;
ret:cardinal;
begin
result:=#0;
GetNumberOfConsoleInputEvents(inputhandle,ret);
if ret>0 then
begin
Forum: Netzwerke
Delphi
by sirius,
22. Aug 2007
ReadLn auf der Konsole und Messageabarbeitung, geht zugleich nicht wirklich. Da musst du dir wahrscheinlich deine eigene Readln-Methode basteln.
Forum: Netzwerke
Delphi
by sirius,
22. Aug 2007
Ich kenne deine "Zeile" nicht.
Funktionieren ist etwas übertrieben, man muss wahrscheinlich daran noch etwas ändern, damit auch der Rest des Programmes weiterläuft.
Forum: Netzwerke
Delphi
by sirius,
22. Aug 2007
Na klar. Warte ich zeigs gleich. Muss ihn nur nochmal erstellen.
program Project2;
{$APPTYPE CONSOLE}
uses windows,scktcomp;
type