Правила форума
Language:
Русский
English
{GetDir.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the GetDir procedure.}
uses WinCrt;
var
s : String;
begin
GetDir(0,s); { 0 = Current drive }
Writeln('Current drive and directory: ',
s);
end.
 GetDir.PAS |
::
::
::
