// Formen in DLLs:
// Als erstes ein DLL-Projekt beginnen:
// Datei --> Neu --> DLL
// dann eine Form hinzufügen:
// Datei --> Neu --> Formular
// dann siehe den folgenden Code.
// Hinweis: Bei exports Groß- und Kleinschreibung beachten!


// Getestet mit D4 unter XP

library Project1; 
 
uses 
  Unit1 in 'Unit1.pas' {Form1}; 
 
var 
  SaveExit: Pointer; 
 
procedure LibExit; 
begin 
  Form1.free; 
  ExitProc := SaveExit; 
end; 
 
procedure ShowMyWindow; 
begin 
  Form1.showmodal; 
end; 
 
exports ShowMyWindow; 
 
begin 
  Form1 := TForm1.create(nil); 
  SaveExit := ExitProc; 
  ExitProc := @LibExit; 
end.