freepascal.compiler/packages/extra/os2units/clkdll/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.

{
$Log$
Revision 1.1  2003-10-14 14:42:09  yuri
+ Import

}