mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 02:30:07 +02:00
24 lines
434 B
ObjectPascal
24 lines
434 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', False);
|
|
|
|
GetCurrentDirectory(Buffer, BUFFER_SIZE);
|
|
|
|
WriteLn('AppPath is "%s"', [AppPath^]);
|
|
WriteLn('CmdLine is "%s"', [CmdLine^]);
|
|
WriteLn('Current Directory is "%s"', [Buffer]);
|
|
end.
|