diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-11 00:32:35 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-11 00:32:35 +0000 |
| commit | 4c869f07fa060261a20a7b54778b80a5e6bb7531 (patch) | |
| tree | 58b999a36782b2423bbabfb5a20b7bbf886cccc3 | |
| parent | 954df64c608bac527e97f4e4534807c321633f54 (diff) | |
| download | usdx-4c869f07fa060261a20a7b54778b80a5e6bb7531.tar.gz usdx-4c869f07fa060261a20a7b54778b80a5e6bb7531.tar.xz usdx-4c869f07fa060261a20a7b54778b80a5e6bb7531.zip | |
GetExecution dirs forced to absolute path
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1361 b956fd51-792f-4845-bead-9b4dfca2ff2c
| -rw-r--r-- | src/base/UPlatform.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/base/UPlatform.pas b/src/base/UPlatform.pas index e88e45b2..0942ec7b 100644 --- a/src/base/UPlatform.pas +++ b/src/base/UPlatform.pas @@ -85,7 +85,7 @@ end; *} function TPlatform.GetExecutionDir(): string; begin - Result := ExtractFilePath(ParamStr(0)); + Result := ExpandFileName(ExtractFilePath(ParamStr(0))); end; (** |