Discussion :

[pomalo]

Bonjour

je suis en train de faire une petite application (appelons la "admin") pour configurer une application plus grosse (appelons la "MonApp") et écrire un fichier de configuration

je veut utiliser la fonction GetAppConfigDir qui utilise un appel a ApplicationName . je veut donc imposer le nom de mon application au programme "admin" pour qu'il écrive le fichier de config dans le répertoire de "MonApp" (/home/user/.config/MonApp sous linux) c'est possible grâce au callback OnGetApplicationName

quelqu'un aurai um un exemple de code pour utiliser un tel callback

merci
cordialement
Claude

[pomalo]

bonjour

j'ai trouvé une solution je sais pas si c'est la bonne

dans mon admin.lpr, j'ai ajouté une fonction

Code :

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

1
2
3
4
5
 
function SetAppName: String;
  begin
       Result := 'myapp';
  end;

et avant

Code :

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

1
2
 
Application.Initialize;

j'assigne ma fonction au callback OnGetApplicationName

Code :

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

1
2
 
OnGetApplicationName:= @SetAppName;

la fonction ApplicationName retourne "myapp" maintenant et la fonction GetAppConfigFile(false) retourne "/home/user/.config/myapp.cfg" et devrai retourner "C:\Documents and Settings\user\Local Settings\Application Data/myapp.cfg" sous win32 (pas testé)

je sais pas ce que vous en pensez ni si c'est le bon endroit pour mettre ce code mais avant Application.initialize, le nom de l'application n'était pas changé


cordialement
claude

[chris37]

Salut la pomme

Tout les anciens sont encore vivant et cela me fait bien plaisir.

Je ne connais pas d'autre méthode comme ca de tête mais il m'arrive de faire le même genre de traitement et ce comme tu l'as décris...

En attendant mieux