Help - timing ve W95

[zd.sn]

Zdravim,
V jednoduchosti je sila.
uses windows;
var
relativni_milisekunda,skutecna_milisekunda,psek:Longint;


relativni_milisekunda:=GetTickCount;

do cyklu das

 psek:=GetTickCount;
 skutecna_milisekunda:=psek-relativni_milisekunda;


A mas to presne na milisekundy. Chodi spolehlive.

Cau

ing. Zdenek Snasel
zd.sn@volny.cz


----- Original Message -----
From: Pavel Vagner <vagnerp@feld.cvut.cz>
To: Multiple recipients of list <hw-news@list.gin.cz>
Sent: 2. února 2000 12:15
Subject: Help - timing ve W95


> Zdravim!
> Nevi nekdo nahodou,jak generovat presne casove intervaly ve
> Windows 95,98.(Komponenta Timer ve Delphi neni to prave
> orechove)Kdyby byl i nejaky utrzek zdrojaku,byl bych velice
> vdecen.Predem diky
>                                 a  s pozdravem   vagy
>
>
>