[LordSP]

Ребят еще такой вопрос,мучаюсь с этим скриптом никак понять не могу,как соединить так чтобы,путь присваивался из кода,если нет,выдавал сообщения о не нахождении пути,и еще чтобы сразу проверялась версия,если не совпадает с заданной,тоже появляется сообщение и установка прекращается,но есть еще и такой вопрос:Можно сделать чтобы сообщения появлялись по очереди,или же одним сообщением.
Вот скрипт: Сорри за то что целиком,просто не умею я спойлеры делать :-( Не судите строго!

[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
DefaultDirName={code:GetInstallDir}
DisableDirPage=yes

[Files]
Source: "D:\CDMS\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[code]
Function GetInstallDir( AppID: String ): String; var dir: String;
begin
RegQueryStringValue(HKCU, 'SOFTWARE\Matrix', 'Path', dir);
Result:= dir;
end;

function InitializeSetup1(): Boolean; var ResultStr: String;
begin
Result:= True;
if not RegValueExists(HKCU, 'SOFTWARE\Matrix','Path') then
begin
MsgBox('Путь установки не опознан!', mberror, mb_ok);
Result:=False;
exit;
end;
begin
RegQueryStringValue(HKCU, 'Software\Matrix', 'Version', ResultStr);
if ResultStr='1.1.0' then
begin
Result := MsgBox('Поиск установленных компонентов:' #13#13 'Компоненты найдены. Продолжить установку?', mbConfirmation, MB_YESNO) = idYes;
if Result = False then
MsgBox('Поиск установленных компонентов:' #13#13 'Установка прервана.', mbInformation, MB_OK);
end
else MsgBox('Поиск установленных компонентов:' #13#13 'Версия неверна!!', mbConfirmation, MB_OK);
end
end;