pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

instantfpc: example for working directory

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1538 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2011-03-27 16:42:50 +00:00
parent f99c3f3b90
commit 9703e98787
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/instantfpc/examples/getworkingdirectory.pas Executable file
View File

@ -0,0 +1,7 @@
#!/usr/bin/env instantfpc
uses
SysUtils;
begin
writeln(GetCurrentDir);
end.