12-03-2008, 09:17 PM
الكود التالي يقوم بحذف الإسم المستعار
كود :
procedure TForm1.Button3Click(Sender: TObject);
begin
if Session.IsAlias('Mahdi') then
begin
Session.DeleteAlias('Mahdi'); // هو الإسم المستعار المراد حذفه"Mahdi"
Session.SaveConfigFile;
showmessage('تم حذف الإسم المستعار بنجاح');
end else Showmessage('الإسم المستعار غير موجود');
end;