Discussion :

[colorid]

Bonjour à tous,

Si j'installe une DLL dans le répertoire System telle que par exemple "Ma DLL.DLL" je devrai pouvoir la trouver par le code suivant

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
var
  Ok: Boolean;
begin
  Ok:= FileExists('C:\\Windows\System32\PeekColor_Init.dll');
  if not Ok then ShowMessage('La DLL "MaDLL" est absente');

Or la DLL est dans le répertoire systeme et malgré tout le message s'affiche ce qui signifie qu'il ne l'a pas trouvée.

Deux questions :

1. La fonction FileExists est-elle mal écrite ? si Oui comment l'écrire ?
   2. Peut-on détecter la version Windows courante et dans ce cas comment trouver le chemin du système ?

Une réponse à la première question avec un exemple de code serait suffisante pour être bienvenue !

Merci à tous

[Paul TOTH]

pourquoi un double slash ? C:\\

sinon un LoadLibrary('PeekColor_Init.dll') vu qu'elle est dans System32, pas besoin de spécifier le chemin

[colorid]

J'ai effectivement en début de Form1.create chargé les deux librairies avec

Code :

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

1
2
  LoadLibrary('PeekColor_Init.dll');
  LoadLibrary('PeekGraph.dll');

Mais avant même d'arriver par traçage sur ces lignes à la compilation j'obtiens le message d'erreur système : "Impossible de démarrer le programme car il manque PeekGraph.dll sur votre ordinateur. Essayez de réinstaller le programme pour corriger ce problème."
Ce message n'apparait que si les lignes de code dans Form1.create

Code :

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

1
2
3
4
5
6
  Ok:= (PEEK_INIT_Version(Pchar(Application.Title))<>0) and PeekGraphDLL_Init_DLL(Application);
  if not Ok then
  begin
    ShowMessage('Désolé mais la DLL "PeekGraph.dll" ne reconnait pas l''application');
    Halt;
  end;

sont opérationnelles, si je les rend inopérationnelles pas de message d'erreur. Ce n'est donc pas les deux lignes de chargement des librairies qui seraient responsables.

J'ai donc essayé de tracer le code des DLL mais le message se produit avant le premier accès dans la première DLL qui n'est d'ailleurs pas PeekGraph.dll !!!

Je ne comprend vraiment pas ce qui se passe !!!!