Cut specific part of path

Question

Here is the code from Inno Setup

function GetDirName(const Value: string): string;
    var 
    InstallPath: string;
    begin

    RegQueryStringValue(HKLM, 'HKEY_LOCAL_MACHINE\SOFTWARE\Classes\IconExtractor\DefaultIcon', '', InstallPath)

    Result := InstallPath;
    end;

The result is as below:

Result = C:\ProgramFiles\Solutions\Extractor\tools\v3\iconextractor.exe,1

But i only want to remove the last 3 path elements

C:\Program Files\Solutions\Extractor

How i can do it?

What does it mean "I only want this"? Can you be more specific? Do you want to remove the last 3 path components? — Martin Prikryl, Jun 18 '17 at 18:41
Thanks for the info, now it just removing 1 path (iconextractor.exe,1). How i can remove the remaining 2 paths? — user3796104, Jun 18 '17 at 19:10
@MartinPrikryl : You are right Just tested : doing 3 times `InstallPath := ExtractFileDir(InstallPath);` does the same job. ;-) — moskito-x, Jun 18 '17 at 20:47

score 1 · Accepted Answer · answered Jun 18 '17 at 19:54

1

Try little bit of code

function GetDirName(const Value: string): string;
var 
 InstallPath : string;
 I,bscount   : Integer;

begin
 RegQueryStringValue(HKLM,'HKEY_LOCAL_MACHINE\SOFTWARE\Classes\IconExtractor\DefaultIcon',
                        '', InstallPath);
 bscount := 0;

 for I := Length(InstallPath) downto 1 do begin
   if InstallPath[I] = '\' then Inc(bscount);
   if bscount = 3 then begin
      InstallPath := Copy(InstallPath,1,I-1);
      break;
   end;
end;// for

Result := InstallPath;
end;

answered Jun 18 '17 at 19:54

moskito-x

11,832
5
47
60

Your code works perfectly! Finally i got it thanks to you :) – user3796104 Jun 18 '17 at 20:08
@user3796104 : you are welcome :) – moskito-x Jun 18 '17 at 20:09

Cut specific part of path

1 Answers1