1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
procedure TForm1.Button6Click(Sender: TObject);
var
wchemin: string;
AParams: TStringList;
begin
application.processmessages;
AParams := TStringList.Create;
WCHEMIN:=ExtractFilePath(Application.exename); // extraire le chemin
if not(session.IsAlias('CHEMINFACT')) then
begin
AParams.add('Path =' + wchemin + EDIT3.TEXT);
Session.AddAlias('CHEMINFACT', 'PARADOX', AParams);
Session.SaveConfigFile;
AParams.Free;
showmessage('Alias correctement généré := ' + WCHEMIN+edit3.text);
end
else
begin
Session.DeleteAlias('CHEMINFACT');
AParams.add('Path =' + wchemin + EDIT3.TEXT);
Session.AddAlias('CHEMINFACT', 'PARADOX', AParams);
Session.SaveConfigFile;
AParams.Free;
showmessage('Alias existe ... sup + création ' + WCHEMIN+edit3.text);
end;
end; |
Partager