systemunit.pas: shellExpand ersetzt nun auch "~"

1 files changed, 9 insertions, 1 deletions

diff --git a/systemunit.pas b/systemunit.pas
index cb09456..c99d05a 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -125,7 +125,7 @@ begin
   while pos('${',result)>0 do begin
     s:=erstesArgument(result,'${',false);
     name:=erstesArgument(result,'}',false);
-    result:=s+GetEnvironmentVariable(name)+result;
+    result:=s+getEnvironmentVariable(name)+result;
   end;
 end;
 
@@ -220,6 +220,14 @@ begin
     end
     else
       inc(i);
+  for i:=0 to sa.count-1 do begin
+    s:=sa[i];
+    if startetMit('~/',s) then
+      s:=getEnvironmentVariable('HOME')+'/'+s
+    else
+      continue;
+    sa[i]:=s;
+  end;
 end;
 
 function mkTemp(s: string): string;