Hallo,
Ich hoffe ich habe hier das richtige Forum erwischt, denn das Thema ist ziemliches Neuland für mich.
Also erstmal die Dinge die schon funktionieren(nur Hintergrundinfo):
Ich habe eine Anwendung, die ich über das Kontextmenü im Windows Explorer bei bestimmten Dateien(MP3s) starten kann. Wenn ich also viele Dateien markiere wird das Programm auch mehrfach gestartet. Ich habe mit der ONEinst
Unit von Luckie dafür gesorgt, dass mein Programm nur einmal gestartet wird und dass alle markierten Dateien an diese eine instanz übergeben werden. Soweit so gut. Das Problem ist jetzt, dass das gegebene Programm inzwischen relativ groß geworden ist und lange zum laden braucht. Erst recht wenn eben 100 Dateien markiert wurden und das Programm 100mal gestartet wird.
Daher möchte ich mein ganzen Grundgerüst umwerfen und das Programm in DLLs verteilen, die immer nur dann geladen werden, wenn sie auch gebraucht werden. Auch die MainForm.
Ich hab inzwischen ein wenig über DLLs gelesen und weiß wie ich sie erstelle und wie ich "von außen" darauf zugreifen.
Wie schaffe ich es, dass ich die mainform als benutzer "normal" nutzen kann? Im Moment wird sie ja erzeugt und dan gleich wieder geschlossen...
Bisher hab ich folgendes:
Programm:
Delphi-Quellcode:
program bla;
uses
windows, SysUtils;
type
TStarteMainForm =
procedure;
stdcall;
procedure StartMainForm;
Var
DLL : THandle;
{$R *.res}
procedure StartMainForm;
Var
StarteForm : TStarteMainForm;
begin
DLL := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + '
test.dll'));
If DLL <> 0
then
begin
@StarteForm := GetProcAddress(
DLL, '
StartApplication');
If @StarteForm <>
nil then
StarteForm;
end;
end;
begin
DLL := 0;
StartMainForm;
if DLL <> 0
then FreeLibrary(
DLL);
end;
end.
Die test.dll:
Delphi-Quellcode:
library MainDLL;
{ Haupt-DLL mit Hauptfenster }
uses
Forms,
Unit1
in '
unit1.pas'
{MainForm};
{$R *.res}
procedure StartApplication;
stdcall;
begin
Application.Initialize;
Application.CreateForm(TForm1, MainForm);
Application.Run;
end;
exports
StartApplication;
begin
end.