Konsole: KeyHit? KeyPressed?

[glkgereon]

Hi

ich muss irgendwie rauskriegen ob (irgendeine) Taste gedrückt wird. Das soll nur innerhalb der Konsole sein...

hier ein beispiel wozu ichs brauch^^

nur "KeyHit" exitiert ja nicht ...gibt es denn überhaupt sowas?

Delphi-Quellcode:

function SettingsChange:Boolean;
//Gegebenenfalls Settings-Form erstellen+Anzeigen
var Form: TForm_Settings;
    i:Integer;
begin
  try
    Write('Druecken sie eine Taste um die Einstellungen zu aendern');
    i:=0;
    while i<5 do
      begin
      Write('.');
      sleep(1000);
      if Keyhit then Break else inc(i);
      end;
    if i<5 then
      begin
      Form:=TForm_Settings.Create(nil);
      Form.ShowModal;
      Form.Free;
      end;
    WriteLn;
    Result:=False;
  except
    Result:=True;
  end;
end;

[leddl]

Zu TP-Zeiten gab es AFAIR KeyPressed. Vielleicht funktioniert das hier auch noch.

[Flocke]

Ansonsten schau dir mal PeekConsoleInput an.

[glkgereon]

leddl: nein, kannte ich auch, gibbet net mehr

flocke: das sieht gut aus
werds mal ausprobieren

Edit: ich hab jetzt versucht mir aus der api-funktion was zu basteln....geht das so?

Delphi-Quellcode:

var Temp: Pointer;
  InCount: Cardinal;
PeekConsoleInput(GetConsoleWindow,nil,nil,Temp);
InCount:=Temp^;

oder kann ich direkt das machen?

Delphi-Quellcode:

var InCount: Cardinal;
PeekConsoleInput(GetConsoleWindow,nil,nil,InCount);