Subversion Repositories spacemission

Rev

Rev 15 | Rev 31 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Global;
  2.  
  3. interface
  4.  
  5. const
  6.   ProgramVersion = '1.2';
  7.  
  8. function FDirectory: string;
  9.  
  10. implementation
  11.  
  12. uses
  13.   SysUtils;
  14.  
  15. function FDirectory: string;
  16. begin
  17.   result := extractfilepath(paramstr(0));
  18. end;
  19.  
  20. end.
  21.