Files
HeidiSQL/packages/delphi11/heidisql.dpr

69 lines
2.6 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 in '..\..\source\mysql.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};
{$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.