Discussion :

[bouzaidi]

Bonjour,
J'ai besoin d'un truc en delphi qui me rend le nom du repertoire courant où il y a ma dll. en fait je sais qu'il y a le extractfilepath(application.name) en delphi, mais je ne peux pas l'utiliser ici car dans une dll on n'a pas l'objet application.

N.B: je n'ai pour le moment que le code, donc la dll n'est pas encore générée.

Merci d'avance les amis.

[philnext]

Si tu as un EXE, qui est dans le repertoire c:\temp\, qui est 'démarré dans' c:\test\ et qui utilise ta DLL qui est dans c:\windows, tu veux quel répertoire ?

[bouzaidi]

En fait je cherche a recuperer le repertoire où existe ma dll. donc je cherche l'equivalent de exename pour une dll.
Je crois que j ai trouvé la réponse dans la premiere duscussion de ce forum, on doit utiliser paramstr(0).
Merci quand meme.

[host22]

essai d'utiliser filesearch

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedureTForm1.Button1Click(Sender:TObject);
 
var
FileToFind:string;
begin
FileToFind :=FileSearch(Edit1.Text,GetCurrentDir);
ifFileToFind =''then
ShowMessage('Impossible de trouver '+Edit1.Text +'.')
else
ShowMessage('Trouvé'+FileToFind +'.');
 
end;

enfin si j'ai bien compris

[Eric Boisvert]

paramstr(0) va te retourner le chemin complet du .exe qui appèle ta dll.

si tu veux obtenir le chemin de la dll tu dois procéder autrement:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure EntryPointProc(Reason: Integer);
var
  FileNameDLL: array[0..MAX_PATH] of Char;
begin
  FillMemory( @FileNameDLL[0],MAX_PATH,0);
  GetModuleFileName( HInstance, FileNameDLL, MAX_PATH);
  // ici FileNameDLL = 'c:\winnt\system32\mydll.dll'
end;

[Pedro]

Salut
Si tu veux avoir accès à l'application dans ta DLL, rien de plus simple:

Code :

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

1
2
3
4
5
6
 
procedure Machin(AppHandle: THandle; ...);stdcall;
begin
  Application.Handle := AppHandle;
  //Maintenant, tu peux avoir accès à Application.ExeName
end;

Exemple d'appel:

Code :

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

1
2
 
Machin(Application.handle, ...);

A noter que cette méthode supprime le second bouton qui correspond à la DLL dans la barre des tâches

[bouzaidi]

Salut
Si tu veux avoir accès à l'application dans ta DLL, rien de plus simple:

Code :

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

1
2
3
4
5
6
 
procedure Machin(AppHandle: THandle; ...);stdcall;
begin
  Application.Handle := AppHandle;
  //Maintenant, tu peux avoir accès à Application.ExeName
end;

Exemple d'appel:

Code :

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

1
2
 
Machin(Application.handle, ...);

A noter que cette méthode supprime le second bouton qui correspond à la DLL dans la barre des tâches

la procedure machin doit etre déclarée dans la DLL ou dans l'EXE?? si j'ai bien compris je dois la déclarer dans le exe et l'utiliser dans la dll.

[Pedro]

Salut
La procédure Machin est évidemment dans la DLL Et l'appel est soit dans la DLL soit dans l'exe, ça ne pose pas de problème