How to get the \filter directory from registry (or other) during installation of the plugin

Question

Hello
I made a script to install the plugin because it needs some libraries to be installed as well, but during the installation, the filter directory isn't defined (it isn't the same for each platform or language)
for example my filter folder is :
E:\Program_Files\Photoshop CS2\Modules externes\Filtres
how do i get this filter directory from registry (or with another way)
thanks a lot
Jeff

Answer 1

sorry i made a little mistake (didn't poste the updated version of my code)
here is the right code:
[Code]
var
  maxnb8bf : Integer;
  maxDirectory:        String;
  nb8bf : Integer;
  PreviousDirectory:        String;
procedure ProcessDirectory (RootDir: String; Progress: Boolean);
var
NewRoot:        String;
FilePath:        String;
FindRec:        TFindRec;
n1 : Integer;
n2 : Integer;
begin
NewRoot := AddBackSlash (RootDir);
if FindFirst (NewRoot + '*', FindRec) then
begin
try
repeat
if (FindRec.Name <> '.') AND (FindRec.Name <> '..') then
begin
FilePath := NewRoot + FindRec.Name;
if FindRec.Attributes AND FILE_ATTRIBUTE_DIRECTORY > 0 then
ProcessDirectory (FilePath, Progress)
else
begin
        if (NewRoot <> PreviousDirectory) THEN
        begin;
           if (maxnb8bf < nb8bf) THEN
           begin;
               maxnb8bf := nb8bf;
               maxDirectory := PreviousDirectory;
           end;
           nb8bf := 0;
        end;
        n1 := Pos('.8bf', FilePath);
        n2 := Pos('.8BF', FilePath);
        if ((n1 > 0) or (n2 > 0)) THEN
        begin;
           nb8bf := nb8bf + 1;
        end;
        PreviousDirectory := NewRoot;
end;
end;
until NOT FindNext (FindRec);
finally
FindClose(FindRec);
end;
end;
end;
function InitializeSetup(): Boolean;
var
  V: string;
begin
  if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Photoshop.exe', 'Path', V) then
    MsgBox('Value is "' + V + '"', mbInformation, MB_OK);
  Result := TRUE;
   maxDirectory := '';
   nb8bf := 0;
   PreviousDirectory := '';
   maxnb8bf := 0;
   ProcessDirectory (V, true);
   //if (maxDirectory <> '') THEN
   // begin;
   //      MsgBox('Value is "' + maxDirectory + '"', mbInformation, MB_OK);
   // end;
end;
function NewTargetDir(Param: String): String;
begin
  Result := maxDirectory;
end;
Regards