剪切路径的特定部分

Question

这是来自 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;

结果如下：

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

但我只想删除最后 3 个路径元素

C:\Program Files\Solutions\Extractor

我该怎么做？

Answer 1

尝试一点代码

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;

剪切路径的特定部分

Cut specific part of path

string

inno-setup

pascalscript