Системное программирование в UNIX средствами Free Pascal


         

Эта короткая программа имитирует команду


uses sysutils;
Function GetCurrentDir:String;
Эта короткая программа имитирует команду pwd:
(* Программа my_pwd - вывод рабочего каталога *)
uses sysutils;
procedure my_pwd;
begin
  writeln(GetCurrentDir);
end;
begin
  my_pwd;
end.

Содержание  Назад  Вперед