mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-11-10 02:00:33 +01:00
55 lines
1.8 KiB
ObjectPascal
55 lines
1.8 KiB
ObjectPascal
program DateTime;
|
|
|
|
uses
|
|
KolibriOS;
|
|
|
|
var
|
|
hConsole: Pointer;
|
|
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
|
|
ConsoleExit: procedure(bCloseWindow: Cardinal); stdcall;
|
|
Printf: function(const Format: PKolibriChar): Integer; cdecl varargs;
|
|
GetConsoleCursorPos: procedure(X, Y: PInteger); stdcall;
|
|
SetConsoleCursorPos: procedure(X, Y: Integer); stdcall;
|
|
kbhit: function: Boolean;
|
|
SetConsoleCursorHeight: function(Height: Integer): Integer; stdcall;
|
|
// ConsoleCls: procedure;
|
|
|
|
SystemDate: TSystemDate;
|
|
SystemTime: TSystemTime;
|
|
X, Y: Integer;
|
|
|
|
begin
|
|
hConsole := LoadLibrary('/sys/lib/console.obj');
|
|
ConsoleInit := GetProcAddress(hConsole, 'con_init');
|
|
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
|
|
GetConsoleCursorPos := GetProcAddress(hConsole, 'con_get_cursor_pos');
|
|
SetConsoleCursorPos := GetProcAddress(hConsole, 'con_set_cursor_pos');
|
|
SetConsoleCursorHeight := GetProcAddress(hConsole, 'con_set_cursor_height');
|
|
Printf := GetProcAddress(hConsole, 'con_printf');
|
|
KBHit := GetProcAddress(hConsole, 'con_kbhit');
|
|
|
|
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Date/Time');
|
|
|
|
SetConsoleCursorHeight(0);
|
|
SetConsoleCursorPos(27, 11);
|
|
Printf(
|
|
'SystemDate and SystemTime'#10 +
|
|
' '
|
|
);
|
|
GetConsoleCursorPos(@X, @Y);
|
|
repeat
|
|
SystemDate := GetSystemDate;
|
|
SystemTime := GetSystemTime;
|
|
with SystemDate, SystemTime do
|
|
begin
|
|
Printf('%02x.%02x.%02x', Day, Month, Year);
|
|
Printf(' - %02x:%02x:%02x', Hours, Minutes, Seconds);
|
|
end;
|
|
SetConsoleCursorPos(X, Y);
|
|
Sleep(50);
|
|
until KBHit;
|
|
|
|
ConsoleExit(1);
|
|
TerminateThread;
|
|
end.
|