Différences
Ci-dessous, les différences entre deux révisions de la page.
| Les deux révisions précédentes Révision précédente Prochaine révision | Révision précédente | ||
|
prog:lazarus:windows:directories [05/07/2024 16:31] thierry [GetTempFileName] |
prog:lazarus:windows:directories [05/07/2024 17:19] (Version actuelle) thierry [AllFilesMask = '*';] |
||
|---|---|---|---|
| Ligne 37: | Ligne 37: | ||
| Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String; | Function GetAppConfigFile(Global : Boolean; SubDir : Boolean) : String; | ||
| </code> | </code> | ||
| - | Resultats : | + | === Resultats === |
| <code delphi> | <code delphi> | ||
| GetAppConfigFile(false) = 'C:\Users\thierry\AppData\Local\Vendor\AppName\AppName.cfg' | GetAppConfigFile(false) = 'C:\Users\thierry\AppData\Local\Vendor\AppName\AppName.cfg' | ||
| Ligne 47: | Ligne 47: | ||
| </code> | </code> | ||
| + | === Modification de l'extension du fichier Config === | ||
| + | <code delphi> | ||
| + | ConfigExtension:='.ini'; // Variable globale | ||
| + | |||
| + | GetAppConfigFile(true) = 'C:\ProgramData\Vendor\AppName\AppName.ini' | ||
| + | </code> | ||
| + | |||
| Ligne 57: | Ligne 64: | ||
| Function GetTempDir(Global : Boolean) : String; | Function GetTempDir(Global : Boolean) : String; | ||
| Function GetTempDir : 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> | </code> | ||
| ==== GetTempFileName ==== | ==== GetTempFileName ==== | ||
| Ligne 71: | Ligne 86: | ||
| Function GetUserDir : String; | Function GetUserDir : String; | ||
| </code> | </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> | ||
| + | |||
| Ligne 80: | Ligne 105: | ||
| Function ApplicationName : String; | Function ApplicationName : String; | ||
| </code> | </code> | ||
| + | |||
| === Detournement de ApplicationName avec OnGetApplicationName === | === Detournement de ApplicationName avec OnGetApplicationName === | ||
| Ligne 120: | Ligne 146: | ||
| end; | end; | ||
| </code> | </code> | ||
| + | ===== Constantes utiles ===== | ||
| + | |||
| + | ==== DirectorySeparator = '\' ==== | ||
| + | aussi nommé ''PathDelim'' | ||
| + | |||
| + | ==== DriveSeparator = ':' ==== | ||
| + | Aussi nommé ''DriveDelim'' | ||
| + | |||
| + | ==== ExtensionSeparator = '.' ==== | ||
| + | |||
| + | ==== PathSeparator = ';' ==== | ||
| + | Aussi nommé : ''PathSep'' | ||
| + | |||
| + | ==== MaxPathLen = 260 ==== | ||
| + | Aussi nommé : ''MAX_PATH'' | ||
| + | |||
| + | ==== AllFilesMask = '*' ==== | ||
| + | |||