usr/share/fpcsrc/3.2.0/packages/os2units/examples/clktest.pas · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / packages / os2units / examples / clktest.pas

uses doscalls, clkdll;

Var
  ID: Array[0..255] of Char;
  NextDate: TDateTime;
begin
  WriteLn('RC=',ClkQuerySTData(@ID, NextDate));
  WriteLn(PChar(@ID));
  With NextDate do
    WriteLn(Hours,':',Minutes,':',Seconds);
end.