Mainform aus DLL laden?

[sirius]

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.