mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
9f23a9b313
TODO: find some sleep command for the batch file, as we sometimes get "access denied" while trying to overwrite the just terminated exe. Seems like taskkill doesn't close all handles itself.
71 lines
2.8 KiB
ObjectPascal
71 lines
2.8 KiB
ObjectPascal
program heidisql;
|
|
|
|
uses
|
|
Forms,
|
|
SysUtils,
|
|
Dialogs,
|
|
main in '..\..\source\main.pas' {MainForm},
|
|
childwin in '..\..\source\childwin.pas' {MDIChild},
|
|
about in '..\..\source\about.pas' {AboutBox},
|
|
connections in '..\..\source\connections.pas' {connform},
|
|
createtable in '..\..\source\createtable.pas' {CreateTableForm},
|
|
fieldeditor in '..\..\source\fieldeditor.pas' {FieldEditForm},
|
|
exportsql in '..\..\source\exportsql.pas' {ExportSQLForm},
|
|
tbl_properties in '..\..\source\tbl_properties.pas' {tbl_properties_form},
|
|
loaddata in '..\..\source\loaddata.pas' {loaddataform},
|
|
usermanager in '..\..\source\usermanager.pas' {UserManagerForm},
|
|
options in '..\..\source\options.pas' {optionsform},
|
|
optimizetables in '..\..\source\optimizetables.pas' {optimize},
|
|
printlist in '..\..\source\printlist.pas' {printlistForm},
|
|
copytable in '..\..\source\copytable.pas' {CopyTableForm},
|
|
edituser in '..\..\source\edituser.pas' {FormEditUser},
|
|
insertfiles in '..\..\source\insertfiles.pas' {frmInsertFiles},
|
|
insertfiles_progress in '..\..\source\insertfiles_progress.pas' {frmInsertFilesProgress},
|
|
helpers in '..\..\source\helpers.pas',
|
|
synchronization in '..\..\source\synchronization.pas',
|
|
communication in '..\..\source\communication.pas',
|
|
threading in '..\..\source\threading.pas',
|
|
sqlhelp in '..\..\source\sqlhelp.pas' {frmSQLhelp},
|
|
queryprogress in '..\..\source\queryprogress.pas' {frmQueryProgress},
|
|
mysqlquery in '..\..\source\mysqlquery.pas',
|
|
mysqlquerythread in '..\..\source\mysqlquerythread.pas',
|
|
mysqlconn in '..\..\source\mysqlconn.pas',
|
|
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},
|
|
updatedownload in '..\..\source\updatedownload.pas' {frmUpdateDownload};
|
|
|
|
{$R *.RES}
|
|
|
|
begin
|
|
debug('perf: All modules loaded.');
|
|
Application.Initialize;
|
|
Application.Title := APPNAME;
|
|
Application.CreateForm(TMainForm, MainForm);
|
|
debug('perf: Main created.');
|
|
|
|
try
|
|
try
|
|
InitializeSync(MainForm.Handle);
|
|
SetWindowName(main.discname);
|
|
InitializeThreading(MainForm.Handle);
|
|
InitializeComm(
|
|
MainForm.Handle,
|
|
MainForm.ExecuteRemoteNonQuery,
|
|
MainForm.ExecuteRemoteQuery
|
|
);
|
|
debug('perf: Running.');
|
|
Application.Run;
|
|
finally
|
|
DeInitializeSync;
|
|
end;
|
|
except
|
|
on e: Exception do begin
|
|
ShowMessage(e.ClassName + ': ' + e.Message);
|
|
end;
|
|
end;
|
|
end.
|