Subversion Repositories spacemission

Rev

Rev 2 | Rev 28 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1 
unit Global;
2 
 
3 
interface
4 
 
5 
const
6 
  ProgramVersion = '1.1e';
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.