Oué oué c'est bien tout ça mais dis moi quand on vient chez toi, on respecte tes valeurs, tes principes : Ben merci d'en faire de même de ton coté (DelphiFr=Site français=site laïque).
Il y a eu suffisamment de connards par le passé qui nous ont fait chier avec leur religion ici, pour pas relancer le truc stp.
De plus il serait plus judicieux que tu nettoyes ton zip précédent, que tu renommes tes composants, et que tu corriges ce dernier (Qui représente comme te l'a dis Cirec tout ce qui ne faut pas faire) : ca serait bien plus utile.
procedure CreateAlias;
const
FDbDriver = 'PARADOX';
SubDir = 'dossier de la base \'; //il faut ajouter '\'
var
FAlias: string; chemin:string;
FAliasDir: string;
begin
FAlias := 'nom alias';
chemin := ExtractFilePath(ParamStr(0))+SubDir; {ParamStr(0)c 'est le chemin d'executable ou on peut mettre (application.ExeName )}
Session.ConfigMode := cmPersistent;
if not Session.IsAlias(FAlias) then
begin try begin
FAliasDir := ExtractFilePath(chemin);
Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); end finally
DbiCfgSave(nil, nil, True);
end; end; end;
Il y a eu suffisamment de connards par le passé qui nous ont fait chier avec leur religion ici, pour pas relancer le truc stp.
De plus il serait plus judicieux que tu nettoyes ton zip précédent, que tu renommes tes composants, et que tu corriges ce dernier (Qui représente comme te l'a dis Cirec tout ce qui ne faut pas faire) : ca serait bien plus utile.
Dis donc toi tu commences fort.
const
FDbDriver = 'PARADOX';
SubDir = 'dossier de la base \'; //il faut ajouter '\'
var
FAlias: string; chemin:string;
FAliasDir: string;
begin
FAlias := 'nom alias';
chemin := ExtractFilePath(ParamStr(0))+SubDir; {ParamStr(0)c 'est le chemin d'executable ou on peut mettre (application.ExeName )}
Session.ConfigMode := cmPersistent;
if not Session.IsAlias(FAlias) then
begin try begin
FAliasDir := ExtractFilePath(chemin);
Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); end finally
DbiCfgSave(nil, nil, True);
end; end; end;
Et le jpg ?