1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

// das is die DLL 
uses
  Unit1 in 'Unit1.pas' {Form1};
.
.
.

// und hier wird die Form erstellt ( das wird von dem Programm automatisch 
// aufgerufen beim starten
procedure ModuleInit; stdcall;
begin
  Form1:=TForm1.Create(Application);
end;

procedure ModuleDeinit; stdcall;
begin
  Form1.Release;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormCreate(Sender: TObject);
begin  
   ShowWindow( Application.Handle, SW_HIDE );  
   SetWindowLong( Application.Handle, GWL_EXSTYLE,
         GetWindowLong(Application.Handle, GWL_EXSTYLE) or                              
         WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);  
        ShowWindow( Application.Handle, SW_SHOW );
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormCreate(Sender: TObject);
begin  
   ShowWindow( Form1.Handle, SW_HIDE );  
   SetWindowLong( Form1.Handle, GWL_EXSTYLE,
         GetWindowLong(Form1.Handle, GWL_EXSTYLE) or                              
         WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);  
        ShowWindow( Form1.Handle, SW_SHOW );
end;					

1:
2:
3:
4:
5:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
    Params.ExStyle := WS_EX_TOOLWINDOW
end;					

1:
2:
3:
4:
5:
6:
7:

  handle:=GetActiveWindow;
  Application.handle:=handle;
  Application.CreateForm(Tf_main, f_main);
  Application.CreateForm(Tf_settings, f_settings);
  Application.CreateForm(Tf_routing, f_routing);
  Application.handle:=0;
  f_main.LoadSettings;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

library xyz;

uses
  .
  .
  unit1 in 'unit1.pas' {Form1}


var
  handle : HWND;
begin
  handle:=GetActiveWindow;
  Application.handle:=handle;
  Application.CreateForm(TForm1, Form1);
  Application.handle:=0;
end.