serg_aka_lain
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sandy Ann если ".ini" без секций то так procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep= ssPostInstall then begin SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CDDrive1=S:' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CDDrive2=S:' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CDDrive3=S:' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'HDDrive=S:' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'IDPath=' + ExpandConstant('{app}') + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CifTreePath=' + ExpandConstant('{app}') + '\ciftree\' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'HDVideoPath=' + ExpandConstant('{app}') + '\HDVideo\' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CDVideoPath=' + ExpandConstant('{app}') + '\CDVideo\' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'HDSoundPath=' + ExpandConstant('{app}') + '\HDSound\' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'CDSoundPath=' + ExpandConstant('{app}') + '\CDSound\' + #13#10, true); SaveStringToFile(ExpandConstant('{app}') + '\file.ini', 'LoadSavePath=' + ExpandConstant('{app}') + '\Save\' + #13#10, true); end end; |