Discussion :

[Monromero1]

Bonjour,
je souhaiterai savoir si il y a un moyen simplifié pour insérer ou appeler une DLL de ressources dans une application Delphi
étant donné que la seule procédure à appeler dans ce cas s'appelle DllMessage.
Voici le code de la Library :
code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Library SimpleMessageDLL;
USES
SysUtils, Classes, Dialogs;
Procedure DllMessage; export;
begin
ShowMessage('Exemple d''application DLL en Delphi');
end;
exports DllMessage;
begin
end.

Puis le code de l'unité principale.
code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Unit unit1;
 
Interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, STDCTRLS;
 
type
  TForm2 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
Procedure DllMessage; external
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormClick(Sender: TObject);
begin
DllMessage;
end;
 
end.

Le compilateur m'affiche une erreur juste après la procedure DLLMessage car il attend une expression qui n'existe pas.
Je suis donc bloqué.
Le système d'exploitation est : Windows 7 Home edition familiale.
L'environnement est Turbo Delphi 2006
Pouvez-vous me donner des infos supplémentaires s.v.p. par avance merci.

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Procedure DllMessage; external 'SimpleMessageDLL.dll';