Jak zmierzyć czas między dwoma naciśniętymi klaw

Jak zmierzyć czas między dwoma naciśniętymi klawiszami?

Forma to Form1, dalej kladziesz na nia Timer [Timer1] z intervalem 1000 i ustawiasz Enabled na False (koniecznie). Reszte masz tutaj (wymyslalem na bieŻąco wiec moze jest jakas lepsza metoda, ale to bedzie dzialac na pewno):

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Czas : integer;

implementation

{$R *.DFM}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Timer1.Enabled = True then
begin
Label1.Caption := 'Upłynęło ' + IntToStr(Czas) + ' sekund';
Timer1.Enabled := False;
Czas := 0;
end
else
begin
Czas := 0;
Timer1.Enabled := True;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Czas := Czas + 1;
end;

end.--- - -
Roszi

Mozesz tez uzyc systemowego Performance Counter.

Przyklad uzycia:
http://www.4programmers.net/forum/index.php?action=show&id=3509

--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1