[Habetdin]

как в заголовке окна установки убрать слово "Установка - "? »

Код:

[Messages]
SetupWindowTitle=%1

[Arsi000]

у меня установка должна идти в две директориии как это сделать? как добавить ещё одно окно выбора?

[alex2010]

Arsi000, вот здесь прописываешь путь установки файла/папки:
[Files]
Source: records.inf; DestDir: {tmp}; Flags: deleteafterinstall

[R.i.m.s.k.y.]

Подскажите, пожалуйста, как в коде получить айпишник машины ОКТЕТАМИ, т.е. набором четырех чисел, имя пользователя и имя компа?

И народ, имеющий железки на ай3/ай5, и различных интеграшках GMA, отпишитесь, пожалуйста, как в диспетчере устройств отображаются эти видеокарты, мне надо в скоде инно определить тип видухи и от этого уже плясать.

[маркузяка]

(Pos('Windows 7', SystemVersionPanel.Text) = 0) then // Windows 7 (c любым SP или без него) »

[R.i.m.s.k.y.]

маркузяка, ну ептыть, подставить жеж надо после Then свои действия.
этот Ваш if (pos... вообще бессмысленен, - вы просто проверяете что если вин2000 и винХР и виста тогда вин7 тогда ... как будто пушистый белый зверь наследил. Вообще эта проверка бессмыслена, и так ясно что вин95/98 уже нигде нет, а на линуксе инно и так не запуститься. Этой проверкой Вы просто перебираете все ОС и естественно на выходе будет False (ну после того кк правильно переписать эту проверку).
Попробуйте разобраться что делает код
Вы чего хочите? определить ОС? что после этого нужно сделать? Из приведенного кода можно вообще можно иф выбросить, или так сделать:

Код:

var Version: TWindowsVersion;
begin // ваша функция
...
GetWindowsVersionEx (Version);
if (Version.Major >= 5) then begin // все что выше 2000 (вин 2000 определяется как 5,0, хр - 5,1, виста 6,0, вин - 6,1
  SystemVersionPanel.Color := clBlack
  SystemVersionPanel.Font.Color := clRed
  ChangeText := True
end; // if (Version.Major >= 5) 
end; // ваша функция

[маркузяка]

исправил.

а проверка все же не бессмыслена. некоторые игры не запускаются под XP, например Just Cause 2

[nik1967]

маркузяка,
А повнимательнее нельзя? Всё работает.

Код:

(Pos('Vista', SystemVersionPanel.Text) = 0) and  // Windows Vista (c любым SP или без него)
     (Pos('Windows 7', SystemVersionPanel.Text) = 0) then // Windows 7 (c любым SP или без него)

И вообще можно воспользоваться готовыми решениями:
isUtils.dll v1.00 [18.08.2010] от ExpeditorR
HWREQ v 1.0 от Shegorat

[R.i.m.s.k.y.]

а проверка все же не бессмыслена »

Проверка бессмыслена в том виде в каком была написана - я ж расписал что она просто перебирает все ОС с условием and и естественно на выходе пинцет и тот нерабочий.
для ХР проверка if ( (Version.Major = 5) and (Version.Minor = 1) ) then begin...
почитайте справку про GetWindowsVersionEx - там можно проверять и сервис паки

nik1967,
Pos('Vista', SystemVersionPanel.Text) = 0 - значит слово Виста не встречается в строке SystemVersionPanel.Text, значит ОС НЕВИСТА, и так для каждой проверки, как такое может работать? Получается же Если НЕВИН2000 и НЕВИНХР и НЕВИСТА и НЕВИН7 тогда...

[nik1967]

R.i.m.s.k.y.,

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

В данном куске кода проверяется версия оси, и если не найдена версия, как ты уже говорил

Pos('Vista', SystemVersionPanel.Text) = 0 - значит слово Виста не встречается в строке SystemVersionPanel.Text

, то надпись становиться красной:

Код:

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
     (Pos('Vista', SystemVersionPanel.Text) = 0) and  // Windows Vista (c любым SP или без него)
     (Pos('Windows 7', SystemVersionPanel.Text) = 0) then  // Windows 7 (c любым SP или без него)
     begin
      SystemVersionPanel.Color := clBlack
      SystemVersionPanel.Font.Color := clRed
      ChangeText := True
     end

, а если встречается, зелёной:

Код:

GetWindowsVersionEx(Version)
  // Операционная система:
  SystemVersionPanel.Color := clBlack
    SystemVersionPanel.Font.Color := clLime