====== Les répertoires Windows ======
===== Répertoires =====
==== GetAppConfigDir ====

''GetAppConfigDir'' récupère le répertoire de configuration de l'application en cours.
<code delphi>
GetAppConfigDir( Global: Boolean ):string;
</code>

Exemples :
<code delphi>
FPngDir:=GetAppConfigDir(false)+'png'+DirectorySeparator; 

Retourne : 'C:\Users\NomUtilisateur\AppData\Local\MonProgramme\png\'
</code>


<code delphi>
FPngDir:=GetAppConfigDir(true)+'png'+DirectorySeparator; 

Retourne : 'C:\ProgramData\MonProgramme\png\'
</code>

Dans ces exemple ''MonProgramme'' est retourné via la fonction ''ApplicationName''

Si ''VendorName'' est defini il sera ajouté au repertoire...\\
[[#vendorname|voir ci dessous pour définir VendorName]]
<code delphi>
'C:\ProgramData\MyCustomVendor\MonProgramme\png\'
ou
'C:\Users\NomUtilisateur\AppData\Local\MyCustomVendor\MonProgramme\png\'
</code>
==== GetAppConfigFile ====
''GetAppConfigFile'' retourne le nom du fichier de configuration de l'application.
<code delphi>
Function GetAppConfigFile(Global : Boolean) : String;
Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String;
</code>
=== Resultats ===
<code delphi>
GetAppConfigFile(false) = 'C:\Users\thierry\AppData\Local\Vendor\AppName\AppName.cfg'
GetAppConfigFile(false,true) = 'C:\Users\thierry\AppData\Local\Vendor\AppName\Config\AppName.cfg'
GetAppConfigFile(false,false) = 'C:\Users\thierry\AppData\Local\Vendor\AppName\AppName.cfg'
GetAppConfigFile(true) = 'C:\ProgramData\Vendor\AppName\AppName.cfg'
GetAppConfigFile(true,true) = 'C:\ProgramData\Vendor\AppName\Config\AppName.cfg'
GetAppConfigFile(true,false) = 'C:\ProgramData\Vendor\AppName\Config\AppName.cfg'

</code>
=== Modification de l'extension du fichier Config ===
<code delphi>
ConfigExtension:='.ini'; // Variable globale

GetAppConfigFile(true) = 'C:\ProgramData\Vendor\AppName\AppName.ini'
</code>



==== SysConfigDir ====
<code delphi>
SysConfigDir = C:\WINDOWS
</code>
==== GetTempDir ====
<code delphi>
Function GetTempDir(Global : Boolean) : String;
Function GetTempDir : String;

 TGetTempDirEvent  = Function (Global : Boolean) : String;
</code>
Resultats :
<code delphi>
GetTempDir(true) = C:\Users\NomUtilisateur\AppData\Local\Temp\
GetTempDir(false) = C:\Users\NomUtilisateur\AppData\Local\Temp\
GetTempDir = C:\Users\NomUtilisateur\AppData\Local\Temp\
</code>
==== GetTempFileName ====
<code delphi>
Function GetTempFileName(Const Dir,Prefix : String) : String;
Function GetTempFileName : String;
function GetTempFileName(Dir,Prefix: PChar; uUnique: DWORD; TempFileName: PChar):DWORD;

TGetTempFileEvent = Function (Const Dir,Prefix : String) : String;
</code>

==== GetUserDir ====
<code delphi>
Function GetUserDir : String;
</code>
==== Application.Location ====
<code delphi>
Application.Location = 'J:\Users\NomUtilisateur\Backuped\Lazarus\MesProjets\PrgTest\Test1\'
</code>

==== Application.ExeName ====
<code delphi>
Application.ExeName = 'J:\Users\NomUtilisateur\Backuped\Lazarus\MesProjets\PrgTest\Test1\MonAppli.exe'
</code>




===== Fonctions utiles =====
==== ApplicationName ====
La fonction globale  ''AppicationName'' retourne le nom de l'application.
<code delphi>
Function ApplicationName : String;
</code>

=== Detournement de ApplicationName avec  OnGetApplicationName ===

<code delphi>
implementation

Function CustomAppName: String;
begin
  result:='MyCustomName';
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  OnGetApplicationName:=@CustomAppName;
  // Maintenant la function ApplicationName retournera 'MyCustmName'
end;        
</code>

====VendorName ====
La fonction globale  ''VendorName'' retourne le nom du fournisseur de l'application.\\
<code delphi>
Function ApplicationName : String;
</code>
Par defaut ''VendorName'' retourne une chaine vide il faut definir la fonction ''OnGetVendorName'' pour retourner le nom du fournisseur

=== Definition de VendorName  avec OnGetVendorName===

<code delphi>
implementation

Function CustomVendorName: String;
begin
  result:='MyCustomVendorName';
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  OnGetVendorName:=@CustomVendorName;
  // Maintenant la function VendorName retournera 'MyCustomVendorName'
end;        
</code>
===== Constantes utiles =====

====  DirectorySeparator = '\'  ====
aussi nommé ''PathDelim''

====   DriveSeparator = ':' ====
Aussi nommé ''DriveDelim''

====   ExtensionSeparator = '.' ====

====   PathSeparator = ';' ====
Aussi nommé : ''PathSep''

====   MaxPathLen = 260 ====
Aussi nommé : ''MAX_PATH''

====   AllFilesMask = '*' ====