Что не так!?
Лишний end;
.Код: Выделить всё
if RegGetSubkeyNames(HKEY_LOCAL_Machine, 'SOFTWARE\Autodesk\AutoCAD\', Names) then
begin
for i:=0 to GetArrayLength(Names)-1 do
if RegGetSubkeyNames(Names[i], Names2) then
begin
for j:=0 to GetArrayLength(Names2)-1 do
if RegGetSubkeyNames(Names2[j], Names3) then
begin
for k:=0 to GetArrayLength(Names3)-1 do
if (Names3[k] = 'ProductName') and ...
Код: Выделить всё
[Components]
Name: DIRECTX; Description: Установить DIRECTX версии ...
Name: PsysX; Description: Установить PsysX версии ...
[Run]
Components: DIRECTX; Filename: {src}\DirectX\directx_mar2009_redist.exe; Parameters: " /Q "; StatusMsg: Установка DirectX. Подождите, пожалуйста; Flags: runhidden waituntilterminated
Components: PsysX; Filename: {src}\PsysX\PsysX.exe; Parameters: " ??? "; StatusMsg: Установка PsysX. Подождите, пожалуйста; Flags: runhidden waituntilterminated