Subversion Repositories spacemission

Rev

Blame | Last modification | View Log | RSS feed

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