[Optitron]

Nordek, Благодарю, а как убрать линии не знаете?

[Nordek]

а как убрать линии »

Какие? На скрине не понятно.

Код:

  WizardForm.ComponentsList.BorderStyle := bsNone;

Это или опять не то?

[qwea234]

Nordek, ладно что-то не работает на 2003 все-равно, если убрать вообще минверсия - тогда работает, а с ней нет, скорей всего тогда вас не буду мучат - придется глобально почитать описание =(

[Nordek]

выдало ошибки при компиляции на MinVersion: 4.0,; »

Так у тебя наверно стандартная версия. Используй расширенную версию INNO.

[qwea234]

Nordek, то есть это не ошибка что просто написано 4.0, - с запятой ?

[Nordek]

то есть это не ошибка что просто написано 4.0, - с запятой ? »

Нет, не ошибка. У меня на расширенной версии компилится нормально. Если б не работала, я бы не выкладывал.

Вот тестовый скрипт:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Icons]
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe
Name: {commondesktop}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}
Name: {group}\My Program; Filename: {app}\MyProg.exe
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Registry]
Root: HKCU; SubKey: Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers; ValueType: string; ValueName: {app}\MyProg.exe; ValueData: RUNASADMIN; Flags: uninsdeletevalue uninsdeletekeyifempty; MinVersion: 4.0,; OnlyBelowVersion: 0,6.0
Root: HKCU; SubKey: Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers; ValueType: string; ValueName: {app}\MyProg.exe; ValueData: WINXPSP3 RUNASADMIN; Flags: uninsdeletevalue uninsdeletekeyifempty; MinVersion: 0,6.0

[Nightwishh]

Я дико извеняюсь, хочу спросить как запустить .msi контейнер в процедуре procedure CurStepChanged(CurStep: TSetupStep)

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then begin
      Exec(ExpandConstant('{src}\Soft\PhysX-9.13.0725-SystemSoftware.msi'), 'msiexec /i', ExpandConstant('{src}\Soft'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
  end;
end;

неработает!!!

[Nordek]

как запустить .msi »

Код:

[CustomMessages]
PhysXInstall=Установка PhysX

[Code]
var
ResultCode: integer;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then begin
      WizardForm.FilenameLabel.Caption:=ExpandConstant('{cm:PhysXInstall}');
      ShellExec('', ExpandConstant('{src}\Soft\PhysX-9.13.0725-SystemSoftware.msi'),'/qn', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  end;
end;

[Nightwishh]

http://forum.oszone.net/attachment.p...1&d=1388942447 Такое окошко выскакивает после установки (невсегда, очень редко). Что это может озночать?

[habib2302]

доброе время суток.помогите мне решить ошибку