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:26] thierry [Titre] | 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 53: | Ligne 60: | ||
| SysConfigDir = C:\WINDOWS | SysConfigDir = C:\WINDOWS | ||
| </code> | </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> | ||
| + | |||
| + | |||
| Ligne 61: | Ligne 105: | ||
| Function ApplicationName : String; | Function ApplicationName : String; | ||
| </code> | </code> | ||
| + | |||
| === Detournement de ApplicationName avec OnGetApplicationName === | === Detournement de ApplicationName avec OnGetApplicationName === | ||
| Ligne 101: | 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 = '*' ==== | ||
| + | |||