Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-22 07:03:53 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

CRT functions/procedures made safe with overloaded Write/WriteLn implementations

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-09 03:30:39 +03:00
parent 023d565b81
commit 6ee928a133
6 changed files with 208 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Examples/Console/GetCurrentDir/GetCurrentDir.dpr
View File

@@ -10,14 +10,14 @@ const
BUFFER_SIZE = 256;
var
Buffer: array[0..BUFFER_SIZE - 1] of Char;
Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;
begin
InitConsole('Get Current Directory', False);
GetCurrentDirectory(Buffer, BUFFER_SIZE);
Write('AppPath is "%s"'#10, AppPath^);
Write('CmdLine is "%s"'#10, CmdLine^);
Write('Current Directory is "%s"'#10, Buffer);
WriteLn('AppPath is "%s"', [AppPath^]);
WriteLn('CmdLine is "%s"', [CmdLine^]);
WriteLn('Current Directory is "%s"', [Buffer]);
end.