mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-23 23:53:50 +02:00
Freeman
9888dd9095
Extended I/O procedures (CoreLite-like) removed, initial Read/ReadLn procedures added to System unit.
24 lines
439 B
ObjectPascal
24 lines
439 B
ObjectPascal
program GetCurrentDir;
|
|
|
|
uses
|
|
KolibriOS, CRT;
|
|
|
|
const
|
|
AppPath = PPKolibriChar(32);
|
|
CmdLine = PPKolibriChar(28);
|
|
|
|
BUFFER_SIZE = 256;
|
|
|
|
var
|
|
Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;
|
|
|
|
begin
|
|
InitConsole('Get Current Directory');
|
|
|
|
GetCurrentDirectory(Buffer, BUFFER_SIZE);
|
|
|
|
con_printf('AppPath is "%s"'#10, AppPath^);
|
|
con_printf('CmdLine is "%s"'#10, CmdLine^);
|
|
con_printf('Current Directory is "%s"'#10, Buffer);
|
|
end.
|