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




Описание


uses sysutils;

Function GetCurrentDir:String;

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

(* Программа my_pwd - вывод рабочего каталога *)

uses sysutils;

procedure my_pwd;

begin

  writeln(GetCurrentDir);

end;

begin

  my_pwd;

end.




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