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

procedure TForm1.UpdateLVCaption(Index, Count: Integer);
begin
  Listview1.Items[Index].SubItems[0] := 'Position: ' + IntToStr(Count);
  if Count = 10000 then
    Listview1.Items[Index].SubItems[0] := 'fertig';
end;                    

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

library DLL;

uses
  SysUtils,
  Classes,
  UnitDLL in 'UnitDLL.pas';

  exports
  GetMyGlobalName,
  SetMyGlobalName;

{$R *.RES}

begin
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:

unit UnitDLL;

interface

function GetMyGlobalName: ShortString; stdcall;
procedure SetMyGlobalName(Value: ShortString); stdcall;

implementation

var
  dllMyGlobalName: ShortString;

function GetMyGlobalName: ShortString;
begin
  Result := dllMyGlobalName;
end;

procedure SetMyGlobalName(Value: ShortString);
begin
  dllMyGlobalName := Value;
end;

initialization
  dllMyGlobalName := 'Jungfrau';
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:
62:
63:
64:

unit UnitFormMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFormMain = class(TForm)
    EditShowName: TEdit;
    LabelName: TLabel;
    LabelNewName: TLabel;
    EditNewName: TEdit;
    ButtonSetName: TButton;
    ButtonGetName: TButton;
    procedure ButtonGetNameClick(Sender: TObject);
    procedure ButtonSetNameClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormMain: TFormMain;

implementation

var
  cMyDLL: THandle;
  cGetNameProc: function: ShortSTring; stdcall;
  cSetNameProc: procedure (Name: ShortSTring); stdcall;

{$R *.DFM}

procedure TFormMain.ButtonGetNameClick(Sender: TObject);
begin
  EditShowName.Text := cGetNameProc;
end;

procedure TFormMain.ButtonSetNameClick(Sender: TObject);
begin
  cSetNameProc(EditNewName.Text);
  EditShowName.Text := cGetNameProc;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  ButtonGetNameClick(nil);
end;

initialization
  cMyDLL := LoadLibrary('DLL.dll');
  @cGetNameProc := GetProcAddress(cMyDLL,'GetMyGlobalName');
  @cSetNameProc := GetProcAddress(cMyDLL,'SetMyGlobalName');

finalization
  cGetNameProc := nil;
  cSetNameProc := nil;
  if cMyDLL <> 0 then
    FreeLibrary(cMyDLL);
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:
62:
63:
64:
65:
66:
67:
68:

object FormMain: TFormMain
  Left = 498
  Top = 332
  Width = 182
  Height = 171
  ActiveControl = EditNewName
  Caption = 'Test Global DLL-Name'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LabelName: TLabel
    Left = 8
    Top = 8
    Width = 87
    Height = 13
    Caption = 'Global DLL-Name:'
  end
  object LabelNewName: TLabel
    Left = 8
    Top = 56
    Width = 63
    Height = 13
    Caption = '&Neuer Name:'
    FocusControl = EditNewName
  end
  object EditShowName: TEdit
    Left = 8
    Top = 24
    Width = 153
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 0
  end
  object EditNewName: TEdit
    Left = 8
    Top = 72
    Width = 153
    Height = 21
    TabOrder = 1
  end
  object ButtonSetName: TButton
    Left = 88
    Top = 104
    Width = 75
    Height = 25
    Caption = '&Set Name'
    TabOrder = 2
    OnClick = ButtonSetNameClick
  end
  object ButtonGetName: TButton
    Left = 8
    Top = 104
    Width = 75
    Height = 25
    Caption = '&Get Name'
    TabOrder = 3
    OnClick = ButtonGetNameClick
  end
end                    

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

program Test;

uses
  Forms,
  UnitFormMain in 'UnitFormMain.pas' {FormMain};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.