Discussion :

[pepito62]

Bonjour,

Je gère une application Delphi avec des packages (bpl)

Comment afficher le nom du package où mon unité est présente dans un showmessage par exemple ?


Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Demo.exe
  Main.pas
  Main.dfm
 Package1.bpl
  LProduit.pas
  LProduit.dfm
  OTools.pas
 Package2.bpl
  LClient.pas
  LClient.dfm
  ...

Si j'effectue un showmessage dans l'unité Main.pas, il m'affiche Demo.exe
Si j'effectue un showmessage dans l'unité LProduit.pas, il m'affiche Package1.bpl
Si j'effectue un showmessage dans l'unité OTools.pas, il m'affiche Package1.bpl
Si j'effectue un showmessage dans l'unité LClient.pas, il m'affiche Package2.bpl

Merci

[Andnotor]

Code :

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

1
2
3
4
5
6
7
var
  FileName :string;
begin
  SetLength(FileName, MAX_PATH);
  GetModuleFileName(hInstance, PChar(FileName), MAX_PATH);
  ShowMessage(FileName);
end;

[pepito62]

Merci pour cette solution.

Par contre lorsque j'enregistre FileName dans un String ou que je fasse un return de FileName.

J'ai du brun après le chemin. (Il complète jusqu'à MAX_PATH avec des caractères à la con, non visible)

Comment faire ?

Merci beaucoup

[Papy214]

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  FileName :string;
  P: Integer;
begin
  SetLength(FileName, MAX_PATH);
  GetModuleFileName(hInstance, PChar(FileName), MAX_PATH);
  P := Pos(#0, Filename);
  ShowMessage(Copy(FileName, 1, P));

ou plus court:

Code :

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

1
2
3
 
  P := GetModuleFileName(hInstance, PChar(FileName), MAX_PATH);
  ShowMessage(Copy(FileName, 1, P));

[pepito62]

Merci !

[Papy214]

Merci !

yapadekoi !
Pense au tag "résolu"