Блог

У меня есть установщик Inno Setup для приложения, который предлагает пользователю выбор между «Установить для всех пользователей» и «Установить только для меня». Если оно установлено для всех пользователей, файл INI помещается в commonappdata, а настройки являются общими (это требование заказчика). Если оно установлено для текущего пользователя, оно помещается в Local settings appdata.

После установки приложения, какой самый простой способ для приложения «узнать» во время выполнения, какой вариант установки использовался и, следовательно, откуда он должен прочитать и сохранить INI-файл? Кроме того, я хочу, чтобы папка «по умолчанию» (та, в которую пользователь помещается при первой попытке открыть файл данных) была MyDocs для установки одним пользователем и SharedDocs для установки всеми пользователями, и я предполагаю, что решение будет работать и для этого.

Пусть программа установки запишет значение реестра в HKCU, если выбрано «установить только для меня». Запросите ключ при запуске программы и соответствующим образом определите папку по умолчанию.

Если вы используете задачу, позволяющую пользователю выбирать тип установки, вы можете использовать запись реестра, подобную этой:

 [Registry]
Root: HKCU; SubKey: SOFTWAREMyCompanyMyProg; ValueType: dword; ValueName: InstallUserOnly; ValueData: 1; Tasks: install_just_for_me; Flags: UninsDeleteValue; 
  

Затем при запуске приложения вы можете сделать что-то вроде:

 function GetSpecialFolderPath(Folder: Integer; CanCreate: Boolean): string;
begin
  SetLength(Result, MAX_PATH   1);
  SHGetSpecialFolderPath(0, PChar(Result), FOLDER, CanCreate);
  Result := PChar(Result);
end;

...
var
  Reg: TRegistry;
  DefFolder: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('SOFTWAREMyCompanyMyProg', False) then begin
      if Reg.ValueExists('InstallUserOnly') then
        DefFolder := GetSpecialFolderPath(CSIDL_PERSONAL, True)
      else
        DefFolder := GetSpecialFolderPath(CSIDL_COMMON_DOCUMENTS, True);
    end;
  finally
    Reg.Free;
  end;
  

Вы, конечно, можете также прочитать значение реестра, если хотите.