mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-14 01:56:36 +08:00
90ab0b6cf1
* Introduce TAppSettings, created in dpr file * Implement read and write methods, and replace callers of GetRegValue and MainReg.WriteInt/... with these * Optimize read and write methods for avoiding redundant accesses to registry * Auto-remove stored default settings from registry to avoid registry spam * Replace synced MainForm.pref* variables with TAppSettings.Read* calls * Move SetLocales call to dpr file * Move MainForm.FDirname* variables to appropriate methods in helpers.pas * Implement TQueryHistory.Create(SessionPath), reading its items within constructor
66 lines
2.8 KiB
ObjectPascal
66 lines
2.8 KiB
ObjectPascal
program heidisql;
|
|
|
|
uses
|
|
madExcept,
|
|
Forms,
|
|
SysUtils,
|
|
Dialogs,
|
|
Windows,
|
|
main in '..\..\source\main.pas' {MainForm},
|
|
about in '..\..\source\about.pas' {AboutBox},
|
|
connections in '..\..\source\connections.pas' {connform},
|
|
loaddata in '..\..\source\loaddata.pas' {loaddataform},
|
|
usermanager in '..\..\source\usermanager.pas' {UserManagerForm},
|
|
options in '..\..\source\options.pas' {optionsform},
|
|
tabletools in '..\..\source\tabletools.pas' {frmTableTools},
|
|
printlist in '..\..\source\printlist.pas' {printlistForm},
|
|
copytable in '..\..\source\copytable.pas' {CopyTableForm},
|
|
insertfiles in '..\..\source\insertfiles.pas' {frmInsertFiles},
|
|
helpers in '..\..\source\helpers.pas',
|
|
sqlhelp in '..\..\source\sqlhelp.pas' {frmSQLhelp},
|
|
mysql_structures in '..\..\source\mysql_structures.pas',
|
|
column_selection in '..\..\source\column_selection.pas' {ColumnSelectionForm},
|
|
data_sorting in '..\..\source\data_sorting.pas' {DataSortingForm},
|
|
runsqlfile in '..\..\source\runsqlfile.pas' {RunSQLFileForm},
|
|
createdatabase in '..\..\source\createdatabase.pas' {CreateDatabaseForm},
|
|
updatecheck in '..\..\source\updatecheck.pas' {frmUpdateCheck},
|
|
editvar in '..\..\source\editvar.pas' {frmEditVariable},
|
|
view in '..\..\source\view.pas' {frmView},
|
|
selectdbobject in '..\..\source\selectdbobject.pas' {frmSelectDBObject},
|
|
texteditor in '..\..\source\texteditor.pas' {frmTextEditor},
|
|
bineditor in '..\..\source\bineditor.pas' {frmBinEditor},
|
|
grideditlinks in '..\..\source\grideditlinks.pas',
|
|
routine_editor in '..\..\source\routine_editor.pas' {frmRoutineEditor},
|
|
table_editor in '..\..\source\table_editor.pas' {frmTableEditor},
|
|
dbconnection in '..\..\source\dbconnection.pas',
|
|
trigger_editor in '..\..\source\trigger_editor.pas' {frmTriggerEditor: TFrame},
|
|
searchreplace in '..\..\source\searchreplace.pas' {frmSearchReplace},
|
|
event_editor in '..\..\source\event_editor.pas' {frmEventEditor: TFrame},
|
|
loginform in '..\..\source\loginform.pas' {frmLogin},
|
|
Cromis.DirectoryWatch in '..\..\source\Cromis.DirectoryWatch.pas',
|
|
exportgrid in '..\..\source\exportgrid.pas' {frmExportGrid},
|
|
syncdb in '..\..\source\syncdb.pas' {frmSyncDB};
|
|
|
|
{$R ..\..\res\icon.RES}
|
|
{$R ..\..\res\version.RES}
|
|
{$R ..\..\res\manifest.RES}
|
|
{$R ..\..\res\updater.RES}
|
|
|
|
begin
|
|
SetLocales;
|
|
AppSettings := TAppSettings.Create;
|
|
SecondInstMsgId := RegisterWindowMessage(APPNAME);
|
|
if (not AppSettings.ReadBool(asAllowMultipleInstances)) and CheckForSecondInstance then
|
|
Application.Terminate
|
|
else begin
|
|
Application.Initialize;
|
|
Application.Title := APPNAME;
|
|
Application.MainFormOnTaskBar := True;
|
|
Application.UpdateFormatSettings := False;
|
|
Application.CreateForm(TMainForm, MainForm);
|
|
Application.OnMessage := Mainform.OnMessageHandler;
|
|
MainForm.Startup;
|
|
Application.Run;
|
|
end;
|
|
end.
|