[LordSP]

Лександер, Спасибо!
Еще один вопросик,это посложнее: В этом скрипте как реализовать чтобы путь был взят из секции code,но при этом если нет записи о пути установки в реестре,выдывалось сообщение,что не найден путь,а также при этом проверялась версия,если ниже установленной,то выдавалось,что версия не соответствует:
[code]
[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
DefaultDirName={code:GetInstallDir}

Код:

Function GetInstallDir( AppID: String ): String; var dir: String; var ResultStr: String;
begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Matrix', 'Version', ResultStr); 
    ResultStr:='1.1.0'
    RegQueryStringValue(HKCU, 'SOFTWARE\Matrix', 'Path', dir);
   Result:= dir;
end;
 
function InitializeSetup(): Boolean;
begin
 Result:= True;
 if not RegValueExists(HKCU, 'SOFTWARE\Matrix', 'Version') then
 begin
  if not RegValueExists(HKCU, 'SOFTWARE\Matrix','Path') then
  begin
   MsgBox('Программа не найдена!', mberror, mb_ok);
   Result:=False;
   exit;
  end
 end
end;

Function GetInstallDir( AppID: String ): String; var dir: String; var ResultStr: String; begin RegQueryStringValue(HKCU, 'SOFTWARE\Matrix', 'Version', ResultStr); ResultStr:='1.1.0' RegQueryStringValue(HKCU, 'SOFTWARE\Matrix', 'Path', dir); Result:= dir; end; »

Вот тут ли можно,создать сообщение,еще можно ли сделать последовательный вывод сообщение,сначала о пути,а потом о версии,и можно одним сообщением,лучше рассмотреть 2 варианта.