Ich formatiere mal kurz um, was dein Compiler sieht:
Delphi-Quellcode:
program bla;
uses
windows, SysUtils;
type
TStarteMainForm =
procedure;
stdcall;
procedure StartMainForm;
//<--Hier ist der Fehler
Var
DLL : THandle;
procedure StartMainForm;
//Nested Procedure
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 //Procedure StartMainForm
DLL := 0;
StartMainForm;
if DLL <> 0
then FreeLibrary(
DLL);
end;
//begin
end.
Eine Form in der
DLL ist keine schöne Lösung. Du nutzt dann das Applicationobject der
DLL. Und da würde ich mir nicht sicher sein, ob das irgendwann einmal querschießt.