23-01-2012, 09:51 PM
الصفحات : 1 2
05-04-2012, 02:57 PM
هناك طريقة أخرى و هي استعمال ini files
و اليك الكود الذي استعمله أنا
و اليك الكود الذي استعمله أنا
كود :
var ini:TIniFile; ppa:string;
begin
Application.Initialize;
ini := Tinifile.Create(ExtractFileDir(Application.exename)+'\config.ini
if not FileExists(ExtractFileDir(Application.exename)+'\config.ini then
begin
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'le fichier des paramètres (Config.ini) existe dans le répertoire de l''application...!!!.',mterror,[mbyes],0);
Application.Terminate ;
Exit;
end else
ppa:=ini.ReadString('pro','key0',);
if not FileExists(ppa)THEN
begin
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'1) - Le chemin de Base de données spécifié dans le fichier des paramètres (config.ini) '+#13+#13+
'exist reréellement sur votre P.C ou sur votre reseau local '+#13+#13+
'2) - La base de données Retraite Existe dans le chemin spécifié.',mterror,[mbyes],0);
Application.Terminate;
Exit;
end else
Application.Run;
end.الصفحات : 1 2