Subversion Repositories spacemission

Rev

Rev 15 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 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.