Bonjour,

J'ai un probleme avec mon programme et je ne vois pas d'ou vient le probleme, je veux utiliser une fonction contenu dans la dll advapi32.dll mais quand j'execute le programme ça me met l'erreur suivante :

Le point d'entrée de procédure BackupEventLog est introuvable dans la bibliotheque de liaisons dynamique advapi32.dll
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
33
34
35
36
37
38
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, windows;
 
type
 
{ TForm1 }
 
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
 
private
{ private declarations }
 
public
{ public declarations }
end; 
 
Function BackupEventLogA (hEventLog : long; lpBackupFileName : String) : Long; stdcall; external 'advapi32.dll' name 'BackupEventLog';
 
var
Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
end;
Merci de votre aide