mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 22:53:51 +02:00
21 lines
390 B
ObjectPascal
21 lines
390 B
ObjectPascal
program GetCurrentDir;
|
|
|
|
uses
|
|
KolibriOS, CRT;
|
|
|
|
const
|
|
BUFFER_SIZE = 256;
|
|
|
|
var
|
|
Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;
|
|
|
|
begin
|
|
InitConsole('Get Current Directory');
|
|
|
|
GetCurrentDirectory(Buffer, BUFFER_SIZE);
|
|
|
|
con_printf('Application Path is "%s"'#10, AppPath);
|
|
con_printf('Command Line is "%s"'#10, CmdLine);
|
|
con_printf('Current Directory is "%s"'#10, Buffer);
|
|
end.
|