11-11-2011, 12:16 AM
السلام عليكم ورحمة الله
إضافة لما قاله الاخ كاش واحد
إضافة لما قاله الاخ كاش واحد
كود :
var
dir :String;
begin
with Session do
begin
try
Dir:=DirectoryListBox1.Directory;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
AddStandardAlias('AliasExample',Dir,'PARADOX');
finally
ConfigMode := cmAll;
end;
end;
end;