mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 01:21:02 +02:00
Don't close console window by default
This commit is contained in:
parent
7b632d7d69
commit
c0078559bb
@ -7,7 +7,7 @@ var
|
||||
CursorXY: TCursorXY;
|
||||
|
||||
begin
|
||||
InitConsole('Date/Time');
|
||||
InitConsole('Date/Time', True);
|
||||
|
||||
CursorOff;
|
||||
GotoXY(27, 11);
|
||||
|
@ -13,7 +13,7 @@ var
|
||||
Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;
|
||||
|
||||
begin
|
||||
InitConsole('Get Current Directory', False);
|
||||
InitConsole('Get Current Directory');
|
||||
|
||||
GetCurrentDirectory(Buffer, BUFFER_SIZE);
|
||||
|
||||
|
@ -6,5 +6,4 @@ uses
|
||||
begin
|
||||
InitConsole('Hello');
|
||||
WriteLn('Hello, world!');
|
||||
ReadKey;
|
||||
end.
|
||||
|
@ -8,7 +8,7 @@ var
|
||||
Buffer: Pointer;
|
||||
|
||||
begin
|
||||
InitConsole('Load File', False);
|
||||
InitConsole('Load File');
|
||||
Buffer := LoadFile('/sys/example.asm', FileSize);
|
||||
WriteLn(Buffer, FileSize);
|
||||
end.
|
||||
|
@ -17,7 +17,7 @@ var
|
||||
Pos: LongWord;
|
||||
|
||||
begin
|
||||
InitConsole('Read Folder', False);
|
||||
InitConsole('Read Folder');
|
||||
|
||||
if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then
|
||||
with FolderInformation do
|
||||
|
@ -32,7 +32,7 @@ const
|
||||
Yellow = 14;
|
||||
White = 15;
|
||||
|
||||
procedure InitConsole(Title: PKolibriChar; CloseWindowOnExit: Boolean = True;
|
||||
procedure InitConsole(Title: PKolibriChar; CloseWindowOnExit: Boolean = False;
|
||||
WndWidth: LongWord = $FFFFFFFF; WndHeight: LongWord = $FFFFFFFF; ScrWidth: LongWord = $FFFFFFFF; ScrHeight: LongWord = $FFFFFFFF);
|
||||
procedure SetTitle(Title: PKolibriChar);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user