Discussion :

[Eric Boisvert]

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 :

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
 
(*	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"


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

[Jipété]

Essaye donc voir

Code :

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

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

C'est sensé retourner

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.

[Lung]

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.

[Jipété]

@Lung :

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
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

[Lung]

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

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

[Jipété]

@Lung:

Je suis sous XP, et ca fonctionne.

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

Code :

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

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

?
--
jp