09-03-2008, 05:36 PM
إقتباس :Alias:=ExtractFilePath(Application.exename)+'Data';// مسار قاعدة المعطيات
هذا يعني أن مسار قاعدة البيانات متعلق بمسار البرنامج التنفيذي -تعديل موفق-
و هذا مثال آخر يساعد على تحديد مسار الإسم المستعار بشكل أحسن
كود :
uses FileCtrl, DBTables;
...
procedure TForm1.Button6Click(Sender: TObject);
var Dir: string;
Params: TStringList;
begin
Dir := '';
if SelectDirectory('حدد مسار الإسم المستعار ...', '', Dir) then
begin
if Session.IsAlias('Mahdi') then
begin
Params := TStringList.Create;
with Params do
begin
Add('DEFAULT DRIVER=PARADOX');
Add('ENABLE BCD=True');
Add('PATH=' +Dir); // المسار الجديد للإسم المستعار
end;
Session.ModifyAlias('Mahdi', Params); // هو الإسم المستعار المراد إضافته"Mahdi"
Session.SaveConfigFile;
Params.Free;
showmessage('تم تعديل الإسم المستعار بنجاح');
end else Showmessage('الإسم المستعار غير موجود');
end;
end;