InnoSetup install.log에 대한 {app} dir 만들기

Question

설치 대상 폴더 ({app})에 선택한 구성 요소의 install.log를 만들어야하지만 설치 프로그램을 실행할 때 문제가 발생합니다. 파일이 존재하지 않습니다 C : /tmp/exe/install.log "나는 그것이"exe "dir을 아직 만들지 않았다는 것을 의미합니다. 내가 어떻게 우회 할 수 있니?

procedure CurStepChanged(CurStep: TSetupStep); 
var 
    I: Integer; 
    LogList: TStringList; 
begin 
    if CurStep = ssInstall then 
    begin 
    LogList := TStringList.Create; 
    try 
     LogList.Add('Selected components:'); 
     for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do 
     if WizardForm.ComponentsList.Checked[I] then 
      LogList.Add('Component: ' + WizardForm.ComponentsList.ItemCaption[I]); 

     LogList.SaveToFile(ExpandConstant('{app}\install.log')); 
    finally 
     LogList.Free; 
    end; 
    end; 
end; 

Answer 1

아직 실제로 생성되기 전에 프로세스에서 너무 일찍 폴더에 액세스하려는 것으로 의심됩니다.

ssPostInstall과 같이 프로세스의 다음 단계로 변경해보십시오. 이 시점에서 폴더가 생성되었음을 확실히 알 수 있습니다. 나머지 코드는 동일하게 유지되어야합니다.

procedure CurStepChanged(CurStep: TSetupStep); 
var 
    I: Integer; 
    LogList: TStringList; 
begin 
    if CurStep = ssPostInstall then 
    begin 
    LogList := TStringList.Create; 
    try 
     LogList.Add('Selected components:'); 
     for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do 
     if WizardForm.ComponentsList.Checked[I] then 
      LogList.Add('Component: ' + WizardForm.ComponentsList.ItemCaption[I]); 

     LogList.SaveToFile(ExpandConstant('{app}\install.log')); 
    finally 
     LogList.Free; 
    end; 
    end; 
end;