[Drongo]

Serega_, Тут такой небольшой вопрос по коду, всё скачал, всё сделал - скомпилировал, получилось даже лучше чем ожидалось,

результат:

Как, где и на что сменить строку кода, чтобы параметры Системы подошли?

Извиняюсь за поспешность, решил методом "тыка". В коде отсутстует строка для XP Service Pack 3, будем считать это домашним заданием.

Код:

...
  if (Pos('2000 Service Pack 4', SystemVersionPanel.Text) = 0) and  // Windows 2000 SP4
     (Pos('XP Service Pack 2', SystemVersionPanel.Text) = 0) and  // Windows XP SP2
     (Pos('XP Service Pack 3', SystemVersionPanel.Text) = 0) and  // Windows XP SP3 
...

Получилось!!! ))))

[Serega]

Drongo,

[Саш_ОК]

Serega

Я незнаю как зделать так чтоб когда человек установил мою прогу (назвём её №1) и попользоввшись ней период времени -он скачивает обновление в виде exe файла которий по ходу установки -находит (КАКОЙТО ФАЙЛ- а какой и как его зделать я незнаю - но думаю может с помощью рееста и ещё думаю ВЫ подскажите) - программа викидывает окошко с надписью мол у Вас страрая версия такая-такаято -мол установить новую ???? ДА НЕТ.
Я понятно написали или как всегда)

[Drongo]

Я понятно написали или как всегда) »

Я кажется понял, вы хотите обновление программы делать.

[Serega]

Саш_ОК,

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={code:GetInstallPath}
OutputDir=.

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {code:GetInstallPath}

[_Code]
// Берём путь установки программы из реестра
function GetInstallPath( AppID: String ): String;
var
  Path: String;
begin
  Path:= '';
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1','InstallLocation', Path);
  Result:= Path;
end;

function InitializeSetup(): Boolean;
var
  Version,s:string;

begin
  Result:=True;
  //  Проверка установлена ли программа, через реестр
  if not RegValueExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1','InstallLocation') then
  begin
    s:='Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.';
    MsgBox(s, mbError, mb_Ok);
    Result:=False;
  end else
  //  Проверка присутствия файла в папке с установленной программой
  begin
  If (FileSearch('MyProg.exe', ExpandConstant('{code:GetInstallPath}'))='') then
    begin
      s:='Извините, в директории '+ExpandConstant('{code:GetInstallPath}')+'' #13 'не обнаружены файлы, подтверждающие подлинность программы.' #13#13 'Пожалуйста, выберите правильный путь для установки обновления.';
      MsgBox(s, mbError, mb_Ok);
      Result:= False;
    end else
      // И проверка версии оригинальных файлов
    begin
      GetVersionNumbersString(ExpandConstant('{code:GetInstallPath}\MyProg.exe'), Version);
      if Version < '1.5' then
      begin
        s:='У Вас страрая версия такая-такаято -мол установить новую ????';
        if MsgBox(s, msgButtonInstall, mb_yesno) = idNo then
      begin
        Result:= False;
        exit;
      end else
        Result:=True;
      end;
     begin
      if Version >= '1.5' then
      begin
        s:='Обновление не требуется!';
        MsgBox(s, msgButtonOK, mb_ok);
        Result:= False;
        exit;
      end;
     end;
    end;
  end;
end;

[Саш_ОК]

RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Program_is1','InstallLocation', Path); »

а как такой файлик создать?
СПАСИБО ВАМ!!!!!!

[Serega]

Саш_ОК, этот ключ в реестре, создаст ваш первый инсталлятор, а я вам написал код уже для обновления данной программы...
Чтоб попробовать, как работает данный скрипт, закомментируйте всю секцию [code], скомпилируйте и произведите установку. Затем раскомментируйте секцию и снова скомпилируйте, я думаю вам всё станет ясно как он работает...

[x-net]

Как сделать что бы было как на рисунке?
Готовый скрипт можно будет, только не в стиле InstallShield

[Serega]

x-net, вот накидал вам пример...
По поводу формы, скорей всего используется Skin Builder.

[x-net]

Сделал, но как убрать белый фон, оставив только текст с графикой