Problème avec une dll insérée dans une application Delphi
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:
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:
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.
