Chemin Complet du .exe via PID

Version imprimable

me voilà un peu embêté...
le code suivant fonctionnne sur Win2k...
le chemin complet de l'executable s'affiche...
"c:\temp\test1\test.exe"

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
 
(*	declaration in C PSAPI.DLL
    DWORD GetModuleFileNameEx( HANDLE hProcess,    // handle to the process
                               HMODULE hModule,    // handle to the module
                              LPTSTR lpFilename,  // buffer that receives the path
                              DWORD nSize         // size of the buffer);
*)
function GetModuleFileNameEx(hProcess : THandle; hModule : THandle;
                             lpFileName : pchar;
                             nSize : DWORD): DWORD; stdcall;
 
implementation
 
{$R *.DFM}
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
    hProcess:DWORD;
    FileNamePath: array[0..512] of Char;
begin
        hProcess:=OpenProcess( PROCESS_QUERY_INFORMATION OR PROCESS_VM_READ,
                           FALSE,
                           GetCurrentProcessId);
    GetModuleFileNameEx(hProcess,0,FileNamePath,sizeof(FileNamePath));
    RichEdit1.lines.Add(FileNamePath);
    CloseHandle(hprocess);
end;
 
 
//*** External Function from PSAPI.DLL ****
function GetModuleFileNameEx; external 'psapi.dll' index 13;

lorsque je l'execute sur XP...
j'ai juste le nom de l'executable... et je perds le path...
"test.exe"
8O

La question c'est comment avec XP je peux trouver le chemin complet d'un
exe via son ProcessID?

15/09/2006, 00h00
Jipété

Essaye donc voir

Code:

GetProcessImageFileName(hProcess, FileNamePath, sizeof(FileNamePath));

C'est sensé retourner

Citation:

Pointer to a buffer that receives the full path to the executable file

Absolument non testé puisque j'ai pas XP et que d'après mon sdk c'est à partir de XP que cette entrée existe dans psapi.dll.
HTH,
--
jp
PS : plutôt que la déclaration dans ton bout de code, ajoute Psapi dans tes Uses.
15/09/2006, 08h41
Lung

Citation:

Envoyé par Jipété

PS : plutôt que la déclaration dans ton bout de code, ajoute Psapi dans tes Uses.

Je n'ai pas vu cette fonction dans Psapi.pas
Par contre, cette fonction existe bien dans la DLL au numéro 13, mais je n'arrive pas à la faire fonctionner.

@Lung :

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
33
34
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Psapi;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    RichEdit1: TRichEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
    hProcess:DWORD;
    FileNamePath: array[0..512] of Char;
begin
        hProcess:=OpenProcess( PROCESS_QUERY_INFORMATION OR PROCESS_VM_READ,
                           FALSE,
                           GetCurrentProcessId);
    GetModuleFileNameEx(hProcess,0,FileNamePath,sizeof(FileNamePath));
    RichEdit1.lines.Add(FileNamePath);
    CloseHandle(hprocess);
end;

On est bien d'accord : pour le "uses Psapi" je parle de la fonction GetModuleFileName, puisque je suis sous 2k et que l'autre fonction est spécifique à XP.
--
jp

15/09/2006, 13h44
Lung

Citation:

Envoyé par Jipété

On est bien d'accord : pour le "uses Psapi" je parle de la fonction GetModuleFileName

Ah, ok.
Je suis sous XP, et ca fonctionne.

;)
15/09/2006, 14h15
Jipété

@Lung:

Citation:

Je suis sous XP, et ca fonctionne.

C'est quoi qui fonctionne ?
Le "uses Psapi" ou la solution que je propose,

Code:

GetProcessImageFileName(hProcess, FileNamePath, sizeof(FileNamePath));

?
--
jp
15/09/2006, 15h16
Eric Boisvert

2 pièce(s) jointe(s)
Merci pour vos réponse! Ca m'a débloqué!
Il faut dire qu'en utilisant le code de Jipété avec le "use psapi" ca fonctionne
sur Win2k et Xp... mais alors pourquoi mon code ne marchait pas...

simplement que sur Win2k, La fonction
GetModuleFileNameEx a l'index 13 dans psapi.dll
http://www.developpez.net/forums/att...1&d=1158325991
et que sous XP, l'index 13 correspond à GetModuleBaseName
http://www.developpez.net/forums/att...1&d=1158325991
les 2 fonctions ont les mêmes paramètres...donc ca donne l'impression
qu'on appele la bonne... mais les resultats ne sont pas les même!

Je crois que je vais me méfier un peu plus du code genre:
Code:

1 2 function GetModuleFileNameEx; external 'psapi.dll' index 13;
si possible à éviter... et changer pour
Code:

1 2 function GetModuleFileNameEx; external 'psapi.dll' name 'GetModuleFileNameExA';
J'ai quand même eu 1 doute sur la documentation de la fonction GetModuleFileNameEx...:oops:Honte à moi!!!