Discussion :

[jojo86]

Bonsoir,

Je viens de créer un code qui à pour but de récupérer le chemin d'accés à une base de donnée, et je créer un Alias par programmation, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var
  SessionsList: TStringList;
  AliasPath: string;
const
  AppAlias = 'Password';
begin
    SessionsList := TStringList.Create;
    Session.GetAliasNames(SessionsList);
    if SessionsList.IndexOf(AppAlias) = -1 then
      begin
      AliasPath := ExtractFilePath(Application.ExeName) + 'bdd';
      Session.AddStandardAlias(AppAlias, AliasPath, 'Paradox');
      SessionsList.Free;
      Session.SaveConfigFile;
      Session.Close;
      close;
      end;

J'avais essayé ce code sans

Code :

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

Session.SaveConfigFile

l'alias était alors créé mais non sauvegardé, dès que je fermais l'application il disparaisait. Comme je veux que mon alias soit définitif, j'ai ajouté

Code :

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

Session.SaveConfigFile

Mais depuis, mon application bug, elle se bloque completement... si je ferme le programme en tuant le processus, et que je regarde dans le bde l'alias à bien été créé... Mais comment faire pour que ça ne plante pas??

[jojo86]

Je viens de réinstaller windows tout fonctionne maintenant.