shellSubst in systemunit.pas eingefuegt

1 files changed, 14 insertions, 0 deletions

diff --git a/systemunit.pas b/systemunit.pas
index 645f09e..220ab0f 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -12,6 +12,7 @@ function numCpus: int64;
 function momentanFreieCpus: int64;
 function belegterSpeicher: int64;
 function minCache: int64;
+function shellSubst(s: string): string;
 
 implementation
 
@@ -115,6 +116,19 @@ begin
  closefile(f);
 end;
 
+function shellSubst(s: string): string;
+var name: string;
+begin
+  result:=s;
+  while pos('${',result)>0 do begin
+    s:=leftStr(result,pos('${',result)-1);
+    delete(result,1,pos('${',result)-1+length('${'));
+    name:=leftStr(result,pos('}',result)-1);
+    delete(result,1,length(name+'}'));
+    result:=s+GetEnvironmentVariable(name)+result;
+  end;
+end;
+
 begin
   _cpuLastUsed:=0;
   _cpuLastIdle:=0;