lazarus-ccr/applications/instantfpc/examples/getworkingdirectory.pas

#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
uses
  SysUtils;
begin
  writeln(GetCurrentDir);
end.
instantfpc: example for working directory git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1538 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2011-03-27 16:42:50 +00:00			`#!/usr/bin/env instantfpc`
instantfpc: fixed examples git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1539 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2011-03-27 19:48:12 +00:00			`{$mode objfpc}{$H+}`
instantfpc: example for working directory git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1538 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2011-03-27 16:42:50 +00:00			`uses`
			`SysUtils;`
			`begin`
			`writeln(GetCurrentDir);`
			`end.`