05-04-2012, 03:14 PM
هناك حل باستعمال ini file انا شخصيا استعمله
كود :
program essai;
uses
Forms,
Controls,
SysUtils,
Dialogs,
IniFiles,
Unit2 in 'Unit2.pas' {datamodule2: TDataModule},
Unit5 in 'Unit5.pas' {frm_menu},
{$R *.res}
var ini:TIniFile; ppa:string;
begin
Application.Initialize;
Splash:=TSplash.Create(nil);
splash.show;
splash.update;
ini := Tinifile.Create(ExtractFileDir(Application.exename)+'\config.cnr');
if not FileExists(ExtractFileDir(Application.exename)+'\config.cnr') then
begin
Splash.Free;
MessageDlg('Cet application n''a pas pu démarrer , veuillez vérifier que :'+#13+#13+
'le fichier des paramètres (Config.cnr) existe dans le répertoire de l''application...!!!.',mterror,[mbyes],0);
Application.Terminate ;
Exit;
end else
ppa:=ini.ReadString('programme','chemin','');
if not FileExists(ppa)THEN
begin
Splash.Free;
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.cnr) '+#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;
Application.CreateForm(Tdatamodule2, datamodule2);
Application.CreateForm(Tfrm_menu, frm_menu);
PasswordDlg:=TPasswordDlg.Create(nil);
Splash.Free;
if PasswordDlg.showmodal<>1 then
begin
MessageDlg('Fin du programme....!!',mtWarning,[mbOK],0);
Application.Terminate;
end else
PasswordDlg.Free;
Application.Run;
end.
سبحان الله و بحمده عدد خلقه و رضا نفسه و زنة عرشه و مداد كلماته
