09/20/14

كيف تعرف اسم مستخدم الحاسوب يواسطة الدلفي

بسم الله الرحمان الرحيم السلام عليكم و رحمة الله تعالى و بركاته نلقاكم اليوم في موضوع جديد يتعلق بكيفية معرفة اسم مستخدم الحاسوب علما أن اسم المستخدم يمكن أن يكون مستعرا و يمكن معرفة الاسم عن طريق الضغط على زر إبدا ثم سيظهر في أعلى القائمة أو بأي طريقة حسن اصدار نضام التشغيل في موضوع اليوم لن نشرح كثيرا بل سنقدم الكود مباشرة مع بعض الشرح :

قم بكتابة الدالة التالية بعد قسم implementation مباشرة :

function GetCurrentUserName: string;

const

cnMaxUserNameLen = 254;

var

sUserName: string;

dwUserNameLen: DWORD;

begin

dwUserNameLen := cnMaxUserNameLen - 1;

SetLength(sUserName, cnMaxUserNameLen);

GetUserName(PChar(sUserName), dwUserNameLen);

SetLength(sUserName, dwUserNameLen);

Result := sUserName;

end;

هذه الدالة هي المسؤولة عن إحظار اسم مستخدم الحاسوب و هي من نوع string قمنا بكاتبة ثابت cnMaxUserNameLen و حددنا له قيمة 254 و بعدها قمنا بإضافة متغيرين الأول من string و الثاني من نوع Dword في بداية الكود جعلنا قيمة المتغير الثاني مساوية لقيمة الثابت ناقص 1 و بعدها قمنا باستعداء الدالة التي تمكننا من معرفة الطول استخدمناها لمعرفة طول المتغيرين .الطول يعني عدد الأحرف و في نهاية الكود جعلن النتيجة أي اسم المستخدم تحجز في قيمة المتغير الأول الآن كل ما علينا فعله هو إيجاد طريقة مناسبة لإظهار اسم المستخدم و هذه مجموعة من الطرق المناسبة :

اظهار اسم المستخدم في رسالة :أضف زر و أكتب في حدث الضغط عليه الأمر التالي :

ShowMessage(GetCurrentUserName);

اظهار اسم المستخدم في عنوان النموذج بشكل دائم :أكتب في حدث OnCreate للنموذج الأول الكود التالي :

form1.Caption:=GetCurrentUserName

يمكن أيضا استخدامها في العديد من الأماكن و بعديد الطرق مثلا جعل اسم المستخدم يظهر في رسالة على الشكل التالي : مرحبا بك يا " اسم المستخدم " هذا سهل كل ما عليك هو كتابة الكود التالي في حدث OnCreate للنموذج الأول :