[Snap_Suzun]

Всем Доброго времени суток! Меня интересует такой вот вопрос: Как сделать так чтобы путь установки выбирался по записи в реестре? Если это уже где - то решалось ткните меня носом туда Заранее премного благодарен!

[nik1967]

Snap_Suzun,

Путь установки из реестра

Код:

[Setup] 
AppName=GetDeviceInfo 
AppVerName=GetDeviceInfo 
DefaultDirName={code:GetInstallDir} 
 
[_Code] 
Function GetInstallDir( AppID: String ): String; var dir: String; 
begin 
  if not RegQueryStringValue(HKLM, 'SOFTWARE\Company\ProgramNamePro', 'InstallLocation', dir) then 
    RegQueryStringValue(HKLM, 'SOFTWARE\Company\ProgramNameLight', 'InstallLocation', dir); 
   Result:= dir; 
end; 
 
function InitializeSetup(): Boolean; 
begin 
 Result:= True; 
 if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNamePro') then 
 begin 
  if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNameLight') then 
  begin 
   MsgBox('Программа не найдена!', mberror, mb_ok); 
   Result:=False; 
   exit; 
  end 
 end 
end;

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

Snap_Suzun, как то так

Код:

[Setup]
DefaultDirName={code:Path|{pf}\appp}

[*Code]
function Path(String: String): String;
var s1, path : string;
begin
path := ExpandConstant('{pf}\appp');
if RegQueryStringValue(HKCU, 'Software\www', 'Path', s1) then path := s1;
end;

[by_gangster]

R.i.m.s.k.y., а по моему вопросу не знаешь как сделать??

[nik1967]

by_gangster, а скажи, зачем тебе удалять архивы фриарк, если у тебя в скрипте прописано

Код:

Archives = '{src}\*.arc';    // укажите расположение архивов FreeArc; для внешних файлов строку в [Files] добавлять необязательно

{src}
Папка, в котором находится инсталлятор.

by_gangster, используй исдоне проще в обращении)) »

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

а по моему вопросу не знаешь как сделать?? »

я с фриарком, исдоне и формами никак »

[Johny777]

R.i.m.s.k.y., nik1967,
можно так
проще
AppID=myAppSuperID
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID") }_is1,InstallLocation|{pf}\program}
каждый раз при повторной установки ищет саму себя же.

[by_gangster]

nik1967, после распаковки архивов, я хочу что бы они удалялись, что бы места не занимали, так что как сделать???

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

by_gangster, епт у тебя вызов в скрипте {src}\*.arc!!11
ты запустишь инсталлер, он поставит и потом добросовестно смахнет исходник!!!

[by_gangster]

R.i.m.s.k.y., ну так бл**ть объясни чайнику как всё по нормальному сделать