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:

library Project1;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

procedure UpdateInfo(language: string); export; stdcall;
begin
  if (language = 'DE') OR (language='GER') then begin                 //dt. Paket
    unit2.Form2.Caption := 'Über den Updater...';
    unit2.Form2.image2.hint := 'Dieses Fenster schließen';
    unit2.Form2.Label2.Caption := 'Version 1.0 Beta';
    unit2.Form2.Label3.Caption := 'Veröfentlicht am: 01.06.2006';
    unit2.Form2.Label4.Caption := 'Geschrieben von Name';
    unit2.Form2.Label5.Caption := 'Bei Interesse melden sie sich bitte bei Mail';
  end else if (language = 'US') OR (language = 'GB') OR (language = 'USA') then begin //englisches Paket
    unit2.Form2.Caption := 'About Updater...';
    unit2.Form2.image2.hint := 'Close window';
    unit2.Form2.Label2.Caption := 'Version 1.0 Beta';
    unit2.Form2.Label3.Caption := 'Published on 01.06.2006';
    unit2.Form2.Label4.Caption := 'Written by name';
    unit2.Form2.Label5.Caption := 'Interessted? Mail to: mail';
  end else begin         //Paket nicht verfügbar
  messagedlg('Das Sprachpaket ' + language + ' ist nicht verfügbar! Error-Code: 00x01', mtwarning, [mbOK], 0);
  end;
  unit2.Form2.ShowModal;
end;

begin
end.

exports
  UpdateInfo name 'updateinfo';					

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure UpdateInfo(language: string); stdcall; external 'Test.dll';

procedure TForm1.Button1Click(Sender: TObject);
var i : string;
begin
  i := InputBox('Sprachpaket', 'Bitte geben sie ein zu ladendes Sprachpaket an.', 'DE');
  updateinfo(i);
end;

end.					

1:

procedure UpdateInfo(language: string); export; stdcall;					

1:
2:

exports 
UpdateInfo;