File tree Expand file tree Collapse file tree 3 files changed +8
-7
lines changed
Expand file tree Collapse file tree 3 files changed +8
-7
lines changed Original file line number Diff line number Diff line change @@ -395,9 +395,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
395395 AppDataFolder := Info.Folders.AppData + ' \OneWayBackup' ;
396396 { $ENDIF}
397397
398- // program last location, size and state
399- AppIniFileStorage.FileName := AppDataFolder + ' \location.ini' ;
400-
401398 if not DirectoryExists(AppDataFolder) then
402399 begin
403400 if not ForceDirectories(AppDataFolder) then
@@ -407,6 +404,9 @@ procedure TMainForm.FormCreate(Sender: TObject);
407404 end ;
408405 end ;
409406
407+ // program last location, size and state
408+ AppIniFileStorage.FileName := AppDataFolder + ' \location.ini' ;
409+
410410 if not DirectoryExists(AppDataFolder + ' \logs\' ) then
411411 begin
412412 ForceDirectories(AppDataFolder + ' \logs\' )
Original file line number Diff line number Diff line change 66 <MainSource>OneWayBackup.dpr</MainSource>
77 <Base>True</Base>
88 <Config Condition="'$(Config)'==''">Release</Config>
9- <Platform Condition="'$(Platform)'==''">Win64 </Platform>
9+ <Platform Condition="'$(Platform)'==''">Win32 </Platform>
1010 <TargetedPlatforms>3</TargetedPlatforms>
1111 <AppType>Application</AppType>
1212 </PropertyGroup>
9797 <DCC_DebugInformation>0</DCC_DebugInformation>
9898 </PropertyGroup>
9999 <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
100+ <Icon_MainIcon>OneWayBackup_Icon3.ico</Icon_MainIcon>
100101 <VerInfo_Locale>1033</VerInfo_Locale>
101102 <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
102103 <DCC_DebugInformation>1</DCC_DebugInformation>
111112 <DCC_MapFile>3</DCC_MapFile>
112113 <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
113114 <DCC_DebugInformation>1</DCC_DebugInformation>
114- <DCC_Define>madExcept;INSTALLED ;$(DCC_Define)</DCC_Define>
115- <VerInfo_Build>753 </VerInfo_Build>
116- <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.753 ;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
115+ <DCC_Define>madExcept;PORTABLE ;$(DCC_Define)</DCC_Define>
116+ <VerInfo_Build>754 </VerInfo_Build>
117+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.754 ;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
117118 <DCC_LocalDebugSymbols>true</DCC_LocalDebugSymbols>
118119 </PropertyGroup>
119120 <ItemGroup>
You can’t perform that action at this time.
0 commit comments