1:

tStringList.Create;					

1:
2:
3:
4:

VAR
  SL : tStringList;
begin
  SL.Create;					

1:
2:
3:
4:

VAR
  SL : tStringList;
begin
  SL := tStringList.Create;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TMainForm.DemoButtonClick(Sender: TObject);

// This method is a kind of scheduler. Here we switch between the demo forms.

var
  NewDemoClass: TFormClass;
  NewDemo: TForm;

begin
  case (Sender as TSpeedButton).Tag of
    0:
      NewDemoClass := TSpeedForm;
    1:
      NewDemoClass := TGeneralForm;
    2:
      NewDemoClass := TPropertiesForm;
    3:
      NewDemoClass := TVisibilityForm;
    5:
      NewDemoClass := TGridForm;
    6:
      NewDemoClass := TDrawTreeForm;
    7:
      NewDemoClass := TAlignForm;
    8:
      NewDemoClass := TWindowsXPForm;
  else
    NewDemoClass := nil;
  end;

  if (ContainerPanel.ControlCount = 0) or not (ContainerPanel.Controls[0] is NewDemoClass) then
  begin
    if ContainerPanel.ControlCount > 0 then
      ContainerPanel.Controls[0].Free;

    if Assigned(NewDemoClass) then
    begin
      NewDemo := NewDemoClass.Create(Self);
      NewDemo.Hide;
      NewDemo.BorderStyle := bsNone;
      NewDemo.Parent := ContainerPanel;
      NewDemo.Align := alClient;
      NewDemo.Show;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

library testdll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Windows,
  Classes,
  Forms,
  Dialogs,
  baseunit in 'baseunit.pas' {base},
  basechildunit in 'basechildunit.pas' {basechild};

{$E dll}

{$R *.res}

var
DLLProcNext: procedure(Reason: Integer); stdcall = nil;

procedure DLLMain(Reason: Integer); stdcall;
begin
 case Reason of
        DLL_PROCESS_ATTACH:
                begin
                DisableThreadLibraryCalls(hInstance);
                application.CreateForm(Tbase, base);
                end
                ;
        DLL_THREAD_ATTACH:
                ;
        DLL_THREAD_DETACH:
                ;
        DLL_PROCESS_DETACH:
                ;
 end;
 if Assigned(DLLProcNext) then DLLProcNext(Reason);
end;

function initialize:Pointer; stdcall;
begin
result := base;
end;

//exports-Abschnitt

exports
        initialize;

begin
DLLProcNext := Pointer(InterlockedExchange(integer(addr(DLLProc)),integer(@DLLMain)));
DLLMain(DLL_PROCESS_ATTACH);
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

unit mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sharemem, ExtCtrls, StdCtrls, AXCtrls;

type Tinit_dll = function:Pointer;

type
  Thost = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  host: Thost;
  desktop : TActiveForm;

implementation

{$R *.dfm}

procedure Thost.FormShow(Sender: TObject);
var
init_dll : Tinit_dll;  
init_func : TFarProc; 
dllhandle : THandle;  
address : Integer;
newbase : Pointer;
begin
dllhandle := LoadLibrary('testdll.dll');
init_func := GetProcAddress(dllhandle,'initialize');
if init_func <> nil then
        begin
        @init_dll := init_func;
        newbase:=init_dll;
        desktop := TActiveForm(newbase);
        desktop.ParentWindow := host.Handle;
        desktop.setbounds(0,0,host.ClientWidth+1, host.clientheight+1);
        desktop.UpdateControlState;
        desktop.WindowState := wsmaximized;
        desktop.Show;
        end
        else showmessage('Dll wurde nicht geladen');
end;

procedure Thost.FormResize(Sender: TObject);
begin
desktop.SetBounds(0,0,host.clientwidth,host.clientHeight);
end;

end.