Project tree simplified

Examples/DateTime/DateTime.dpr

@@ -0,0 +1,54 @@
+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.