git-svn-id: https://spexeah.com:8443/svn/Asuro@622 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
kieron 2018-05-01 01:05:28 +00:00
parent 440417547f
commit bea68de5d2
79 changed files with 8229 additions and 8207 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -43,7 +43,9 @@ type
EVENT_MOUSE_UP, EVENT_MOUSE_UP,
EVENT_KEY_PRESSED, EVENT_KEY_PRESSED,
EVENT_CLOSE, EVENT_CLOSE,
EVENT_MINIMIZE ); EVENT_MINIMIZE,
EVENT_FOCUS,
EVENT_LOSE_FOCUS );
procedure init(); procedure init();
procedure clear(); procedure clear();
@ -242,6 +244,8 @@ type
TKeyPressedHook = procedure(info : TKeyInfo); TKeyPressedHook = procedure(info : TKeyInfo);
TCloseHook = procedure(); TCloseHook = procedure();
TMinimizeHook = procedure(); TMinimizeHook = procedure();
TFocusHook = procedure();
TLoseFocusHook = procedure();
THooks = record THooks = record
OnDraw : TDrawHook; OnDraw : TDrawHook;
@ -252,6 +256,8 @@ type
OnKeyPressed : TKeyPressedHook; OnKeyPressed : TKeyPressedHook;
OnClose : TCloseHook; OnClose : TCloseHook;
OnMinimize : TMinimizeHook; OnMinimize : TMinimizeHook;
OnFocus : TFocusHook;
OnLoseFocus : TLoseFocusHook;
end; end;
TWindow = record TWindow = record
@ -414,6 +420,8 @@ begin
EVENT_KEY_PRESSED : WindowManager.Windows[WND]^.Hooks.OnKeyPressed:= TKeyPressedHook(Handler); EVENT_KEY_PRESSED : WindowManager.Windows[WND]^.Hooks.OnKeyPressed:= TKeyPressedHook(Handler);
EVENT_CLOSE : WindowManager.Windows[WND]^.Hooks.OnClose:= TCloseHook(Handler); EVENT_CLOSE : WindowManager.Windows[WND]^.Hooks.OnClose:= TCloseHook(Handler);
EVENT_MINIMIZE : WindowManager.Windows[WND]^.Hooks.OnMinimize:= TMinimizeHook(Handler); EVENT_MINIMIZE : WindowManager.Windows[WND]^.Hooks.OnMinimize:= TMinimizeHook(Handler);
EVENT_FOCUS : WindowManager.Windows[WND]^.Hooks.OnFocus:= TFocusHook(Handler);
EVENT_LOSE_FOCUS : WindowManager.Windows[WND]^.Hooks.OnLoseFocus:= TLoseFocusHook(Handler);
else registerEventHandler:= false; else registerEventHandler:= false;
end; end;
end else begin end else begin
@ -455,6 +463,8 @@ begin
WND^.Hooks.OnKeyPressed := nil; WND^.Hooks.OnKeyPressed := nil;
WND^.Hooks.OnClose := nil; WND^.Hooks.OnClose := nil;
WND^.Hooks.OnMinimize := nil; WND^.Hooks.OnMinimize := nil;
WND^.Hooks.OnFocus := nil;
WND^.Hooks.OnLoseFocus := nil;
WindowManager.Windows[newWindow]:= WND; WindowManager.Windows[newWindow]:= WND;
end; end;
end; end;

View File

@ -19,12 +19,27 @@ type
procedure init; procedure init;
function getDateTime : TDateTime; function getDateTime : TDateTime;
function weekdayToString(Weekday : uint8) : pchar;
implementation implementation
var var
DateTime : TDateTime; DateTime : TDateTime;
function weekdayToString(Weekday : uint8) : pchar;
begin
case Weekday of
0:weekdayToString:= 'Saturday';
1:weekdayToString:= 'Sunday';
2:weekdayToString:= 'Monday';
3:weekdayToString:= 'Tuesday';
4:weekdayToString:= 'Wednesday';
5:weekdayToString:= 'Thursday';
6:weekdayToString:= 'Friday';
else weekdayToString:= 'Unknown';
end;
end;
function is_update_in_progress : boolean; function is_update_in_progress : boolean;
var var
bin : uint8; bin : uint8;

View File

@ -3,11 +3,11 @@ unit asuro;
interface interface
const const
VERSION = '1.0.0-613a'; VERSION = '1.0.0-620a';
VERSION_MAJOR = '1'; VERSION_MAJOR = '1';
VERSION_MINOR = '0'; VERSION_MINOR = '0';
VERSION_SUB = '0'; VERSION_SUB = '0';
REVISION = '613'; REVISION = '620';
RELEASE = 'a'; RELEASE = 'a';
implementation implementation

View File

@ -3,12 +3,13 @@ unit fonts;
interface interface
const const
Std_Mask : Array[0..32768] of uint16 = ( Std_Mask : Array[0..32768] of uint16 = (
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000, $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000, $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,$0000, $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,$0000,
$FFFF,$FFFF,$0000,$FFFF,$FFFF,$FFFF,$0000,$0000, $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,$0000,
$FFFF,$FFFF,$0000,$0000,$FFFF,$FFFF,$FFFF,$0000, $FFFF,$FFFF,$0000,$0000,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$FFFF,$FFFF,$FFFF, $FFFF,$0000,$0000,$0000,$0000,$FFFF,$FFFF,$FFFF,
$0000,$0000,$0000,$0000,$0000,$0000,$FFFF,$FFFF, $0000,$0000,$0000,$0000,$0000,$0000,$FFFF,$FFFF,
@ -23,6 +24,16 @@ const
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
@ -37,12 +48,24 @@ const
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$0000,$0000,$0000,$0000,$0000,$FFFF,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
@ -58,48 +81,26 @@ const
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
@ -1961,9 +1962,9 @@ const
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000, $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$0000,
$FFFF,$FFFF,$0000,$0000,$0000,$FFFF,$0000,$0000, $FFFF,$FFFF,$0000,$0000,$FFFF,$FFFF,$0000,$0000,
$0000,$0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,
$0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000, $0000,$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,
$0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,$0000, $0000,$0000,$FFFF,$FFFF,$0000,$0000,$0000,$0000,
$0000,$FFFF,$FFFF,$0000,$0000,$0000,$0000,$0000, $0000,$FFFF,$FFFF,$0000,$0000,$0000,$0000,$0000,
@ -4103,13 +4104,12 @@ const
$00 $00
); );
Std_Font : Array[0..4096] of uint8 = ( Std_Font : Array[0..4096] of uint8 = (
%11111110, %11111110,
%11111100, %11111100,
%11110000,
%11111000, %11111000,
%11011100, %11111000,
%11111100,
%11001110, %11001110,
%10000111, %10000111,
%00000011, %00000011,
@ -4124,6 +4124,16 @@ const
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%11111110,
%11111110,
%11000110,
%11000110,
%11000110,
%11000110,
%11000110,
%11000110,
%11111110,
%11111110,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
@ -4138,12 +4148,24 @@ const
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%11111110,
%11111110,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%11111110,
%10000010,
%10000010,
%10000010,
%10000010,
%10000010,
%10000010,
%10000010,
%10000010,
%11111110,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
@ -4159,48 +4181,26 @@ const
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%11111110,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000, %00011000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
@ -6062,9 +6062,9 @@ const
%00000000, %00000000,
%00000000, %00000000,
%00000000, %00000000,
%00000000,
%11111110, %11111110,
%11000100, %11001100,
%00001100,
%00011000, %00011000,
%00110000, %00110000,
%01100000, %01100000,
@ -8204,9 +8204,6 @@ const
%00000000 %00000000
); );
implementation implementation
end. end.

View File

@ -14,7 +14,7 @@ interface
const const
KERNEL_VIRTUAL_BASE = $C0000000; KERNEL_VIRTUAL_BASE = $C0000000;
KERNEL_PAGE_NUMBER = KERNEL_VIRTUAL_BASE SHR 22; KERNEL_PAGE_NUMBER = KERNEL_VIRTUAL_BASE SHR 22;
BSOD_ENABLE = false; BSOD_ENABLE = true;
TRACER_ENABLE = true; TRACER_ENABLE = true;
CONSOLE_SLOW_REDRAW = false; //Redraws the Window manager after every character, but slows performance. CONSOLE_SLOW_REDRAW = false; //Redraws the Window manager after every character, but slows performance.

View File

@ -269,8 +269,8 @@ begin
writeIntWND(DateTime.Minutes, TERMINAL_HWND); writeIntWND(DateTime.Minutes, TERMINAL_HWND);
writeStringWND(':', TERMINAL_HWND); writeStringWND(':', TERMINAL_HWND);
writeIntlnWND(DateTime.Seconds, TERMINAL_HWND); writeIntlnWND(DateTime.Seconds, TERMINAL_HWND);
//writeStringWND('Weekday: ', TERMINAL_HWND); writeStringWND('Weekday: ', TERMINAL_HWND);
//writeIntlnWND(DateTime.Weekday, TERMINAL_HWND); writeStringlnWND(WeekdayToString(DateTime.Weekday), TERMINAL_HWND);
end; end;
procedure registerCommand(command : pchar; method : TCommandMethod; description : pchar); procedure registerCommand(command : pchar; method : TCommandMethod; description : pchar);