Topic: code no longer working in the latest version
procedure Form1_Button10_OnClick (Sender: string; var Cancel: boolean);
var
Settings_ini: TStringList;
ServerLine,FilePath,FileName,Directory: String;
Len: Integer;
begin
Settings_ini := TStringList.Create;
Settings_ini.LoadFromFile ('Settings.ini');
ServerLine := Settings_Ini[4];
Settings_ini.Free;
Len := Length(ServerLine) - 7;
FilePath := Copy(ServerLine, 8, Len);
If Copy(ServerLine,1,7) <> 'server=' then Form1.Label9.Caption := ExtractFilePath(Application.ExeName)+'sqlite.db'
else Form1.Label9.Caption := FilePath;
begin
Directory := '';
FileName := ExtractFileName('sqlite '+ FormatDateTime(' dd-mm-yyyy hh-nn-ss', now)+'.db');
SelectDirectory('Selezionare una cartella dove salvare il backup', '', Directory, True);
If Directory = '' then MessageBox('Non è stata selezionata nessuna cartella. Nessun backup salvato!','Error',MB_OK+MB_ICONWARNING)
else
Begin
CopyFile(Form1.Label9.Caption,Directory+'\'+FileName);
MessageBox('Il backup è stato salvato con successo!','Backup completato',MB_OK+MB_ICONINFORMATION)
End;
end;
end;