[Habetdin]

а можно я сюда скину его (скрипт) а вы посмотрите ??? »

Не можно, а нужно
О чем писалось вчера:

Выложите проблемную часть скрипта »

[Imitri7]

Habetdin, если делать скриптом что дал ты вот что выходит

вот что выходит

а если просто объединить то

вот

как убрать кнопку отмены на странице завершения?

[kenny_danger]

[InstallDelete] Type: files; Name: "{app}\File.txt" Type: filesandordirs; Name: "{app}\Path";

а вот как сделать чтоб удалось все в папке {app}\Path кроме определенного файла

[Serega]

как сделать чтоб удалось все в папке {app}\Path кроме определенного файла »

Без доп. манипуляций, никак... Пути решения:
1. Прописать удаление файлов и папок через код, т.е. пишите функцию удаления в которой перебираете все вложенные папки и файлы и если имя не совпадает с вашим нужным файлом, то удаляете;
2. Используем BeforeInstall и AfterInstall

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

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

[InstallDelete]
Type: filesandordirs; Name: {app}\Path; BeforeInstall: MyBeforeInstall; AfterInstall: MyAfterInstall

[Code]
procedure MyBeforeInstall;
begin
  // здесь копируем нужный файл, допустим в ExpandConstant('{tmp}')
end;

procedure MyAfterInstall;
begin
  // здесь копируем его обратно
end;

[j8r60]

Кто-нибудь подскажите пожалуйста как правильно в этом коде прописать реестр

Код:

function InitializeSetup: Boolean; 
 var 
  path: string; 
  res: Integer; 
begin 
  Result:= True; 
  if RegValueExists(HKLM, 'Software\Что нужно указать', 'InstallPath') then 
    if RegQueryStringValue(HKLM, 'Software\Что нужно указать', 'InstallPath', path) then 
      if FileExists(path + '\xrEngine.exe') then 
  if MsgBox('Запустить S.T.A.L.K.E.R. - Чистое Небо?', mbConfirmation, MB_YESNO) = IDYES then 
    begin 
      Exec(path + '\xrEngine.exe', '', '', SW_SHOW, ewWaitUntilTerminated, res); 
      Result:= False; 
    end 
  else Result:= False; 
end;

[Serega]

как правильно в этом коде прописать реестр »

Не совсем понял, что именно вы хотите, вот описание из Справки на русском:

Support function: RegQueryStringValue Образец: function RegQueryStringValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: String): Boolean; Описание: Запрашивает указанные REG_SZ или REG_EXPAND_SZ ключи/параметры реестра и возвращает значение в ResultStr. Возвращает True при успешном завершении. При возвращенном False ResultStr не изменяется.

[j8r60]

Вот реестр от S.T.A.L.K.E.R. Чистое Небо

Код:

[Registry]
Root: HKLM; Subkey: "Software\GSC Game World"; Flags: uninsdeletekeyifempty
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; Flags: uninsdeletekey
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallPath"; ValueType: String; ValueData: "{app}";
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallLang"; ValueType: String; ValueData: "ru";
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallSource"; ValueType: String; ValueData: "stkcs-rus-pack-r";
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallVers"; ValueType: String; ValueData: "1.0010";
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallCDKEY"; ValueType: String;
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallUserName"; ValueType: String;
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "UnInstConfirm"; ValueType: String; ValueData:
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS"; ValueName: "InstallPatchID"; ValueType: Dword; ValueData: "$1";
Root: HKLM; Subkey: "Software\GSC Game World\STALKER-STCS\Keys"; Flags: uninsdeletekey

теперь какие значение припесать в этом коде

Код:

function InitializeSetup: Boolean; 
 var 
  path: string; 
  res: Integer; 
begin 
  Result:= True; 
  if RegValueExists(HKLM, 'Software\Что нужно указать', 'InstallPath') then 
    if RegQueryStringValue(HKLM, 'Software\Что нужно указать', 'InstallPath', path) then 
      if FileExists(path + '\xrEngine.exe') then 
  if MsgBox('Запустить S.T.A.L.K.E.R. - Чистое Небо?', mbConfirmation, MB_YESNO) = IDYES then 
    begin 
      Exec(path + '\xrEngine.exe', '', '', SW_SHOW, ewWaitUntilTerminated, res); 
      Result:= False; 
    end 
  else Result:= False; 
end;

[Serega]

какие значение припесать в этом коде »

Код:

////////////////////////////
    if RegQueryStringValue(HKLM, 'Software\GSC Game World\STALKER-STCS', 'InstallPath', path) then 
////////////////////////////

[STRAYKER]

Serega,
Вот етот скрипт и инсталятор сложений по етому скрипту
Скрипт и инсталятор

[j8r60]

Serega

Спасибо все разобрался проста сам ошибся мне надо была всего-лишь дописать правильно путь к exe файлу у меня был путь \xrEngine.exe а надо было \bin\xrEngine.exe