[Dodakaedr]

И папку нужно проверять на наличие. »

Это обязательно? Потому что её не будет изначально.

Хотя можно создать, но опять же не создает.

Код:

function InitializeSetup(): Boolean;
var
    RCode: Integer;
    PathName, RegKey: String;
begin
CreateDir(ExpandConstant( '{src}\Data\Settings' ));
PathName := ExpandConstant( '{src}\Data\Settings' );
RegKey := 'HKEY_CLASSES_ROOT\.mp3';
if DirExists(PathName) then
   Exec('regedit.exe', Format('-ea "%s\Soft.reg" "%s"', [PathName, RegKey]), '', SW_SHOW, ewWaitUntilTerminated, RCode);
Result := False;
end;

Если указать CreateDir(ExpandConstant( '{src}\Data' )); то создает, а две не создает, можно как-то сделать чтобы создавалась {src}\Data\Settings

P.S. Работает. Сделал так:

читать дальше »

Код:

function InitializeSetup(): Boolean;
var
    RCode: Integer;
    PathName, RegKey: String;
begin
CreateDir(ExpandConstant( '{src}\Data'));
CreateDir(ExpandConstant( '{src}\Data\Settings'));
PathName := ExpandConstant( '{src}\Data\Settings' );
RegKey := 'HKEY_CLASSES_ROOT\.mp3';
if DirExists(PathName) then
   Exec('regedit.exe', Format('-ea "%s\Soft.reg" "%s"', [PathName, RegKey]), '', SW_SHOW, ewWaitUntilTerminated, RCode);
Result := False;
end;

Теперь другой вопрос возник: с папками разобрались, а как эспортировать 2,3 и более ключей в один reg файл?