ثلاثة أسئلة في دلفي

اخي العزيز

بالنسبة للسؤال الثالث :

لابد و ان تختار نسخة win تدعم اللغة العربية

و بالننسبة للـ WINXP تحدد للغة من اختيارك لبلدك

مثل الدولة مصر و الغة ( العربية ) EGYPT

بالنسبة للسؤال الثاني :

في WIN98 او WIN ME شغل من قائمة Start

RUN و اكتب الامر WINIP CFG سوف يعطيك رقم

GِATEWAY اكتب هذا الرقم في ورقة ثم شغل

RUN مرة اخري و اكتب Ping و رقم GATEWAY

----------------------------------------------------

في WIN2000 او WINXP تذهب الي الشبكة و تري رقم

الــ GATEWAY و تشغل RUN و تكتب PING و رقم GATEWAY

نسخة واحدة من البرنامج

في جسم البرنامج الرئيسي مثلا Project1

var

Hwnd: THandle;

begin

Hwnd := FindWindow ('TForm1', nil);

if Hwnd = 0 then

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end

else

SetForegroundWindow (Hwnd)

end.

أو بإمكانك كتابة

var

hMutex: THandle;

begin

HMutex := CreateMutex (nil, False, 'OneCopyMutex');

if WaitForSingleObject (hMutex, 0) <> wait_TimeOut then

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end;

end.

أشكركم على الأجوبة

بالنسبة للسؤال الثاني فأنا أريد فحص الانترنت برمجيا..

أما السؤال الثالث .. ألا يوجد طريقة للكتابة بالعربي بدون تغيير اعدادات الويندوز ؟؟

السلام عليكم ورحمة الله وبركاته

لقد جربت البرنامج الذي طرحته ولكنه لا يعل

البرنامج يعمل بدون أي أخطاء ولكن الكود لا يعمل بشكل صحيح

أرجو الرد ولكم جزيل الشكر

أخوكم

أبو الخير