myReadLink neu

1 files changed, 13 insertions, 0 deletions

diff --git a/systemunit.pas b/systemunit.pas
index de0e699..a716d43 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -14,6 +14,7 @@ function belegterSpeicher: int64;
 function minCache: int64;
 function shellSubst(s: string): string;
 function mkTemp(s: string): string;
+function myReadLink(s: string): string;
 
 implementation
 
@@ -147,6 +148,18 @@ begin
   result:=trim(result);
 end;
 
+function myReadLink(s: string): string;
+var
+  args: array of string;
+begin
+  setlength(args,3);
+  args[0]:='-f';
+  args[1]:='-n';
+  args[2]:=s;
+  if not runCommand('readlink',args,result) then
+    raise exception.create('Fehler beim Ausführen von ''readlink -f -n '+s+'''!');
+end;
+
 begin
   _cpuLastUsed:=0;
   _cpuLastIdle:=0;