Discussion :

[koolkris]

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

[Eric Boisvert]

il manque un A dans le nom de la fonction

Code :

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

1
2
Function BackupEventLogA (hEventLog : long; lpBackupFileName : String) : Long; stdcall; external 'advapi32.dll' name 'BackupEventLogA';

[koolkris]

lol Merci bien !!

Bon ba voila... j'ai honte lol