function RepAppli : string; { renvoie Rep de l'appli avec \ terminal }
begin RepAppli:=ExtractFilePath(Application.ExeName); end;


A+ :D