format82

سلام عليكم رمضان كريم اريد كود لتعطيل مفتاح الوندوز (رز win key) في الكيبورد وجزاكم الله خيراً

سلام عليكم رمضان كريم لدي برنامج يقوم بحفظ معلومات في قاعدة البيانات عند اغلاقها (بالزر) اما اذا تم اغلاقها عن طريق Tack Manager لا يقوم بالحفظ انا اريد ان يقوم بحفظ البيانات اذا تم اغلاقها باي طريقةً كان وجزاكم الله خيراً

سلام عليكم رمضان كريم لدي برنامج سيرفر وزبون اريد ان امسح اسم جهاز الزبون عند خروجها من الشبكة من ListBox1 وبياناتها من StringGrid1 server_and_client.rar

سلام عليك استخدم ال copy Edit2.Text:=copy(Edit1.Text,1,3); Edit3.Text:=copy(Edit1.Text,5,7

شكرا لك (cipher) علي كل هذه معلومات ارجو منك المساعدة في عمل مثال لكيفية تعطيل لوحة المفاتيح وكون لك شاكرا (وجدت كثير من الروابط لا تعمل ) وجدت برنامج بفجوال بيسك في المرفقات يقوم بعمل ما اريده فعلا ارجو منكم تحويلها الي الدلفي انا في امسة الحاجة ليها وجزاكم ا…

انا اريدها برمجيا السبب لدي برنامج لادارة المقاهي (محلات النت)

شكرا علي الرد اعقد ان هذا الكود يعمل في وندوز 95 و 98 يستحسن ان يتم تعطيل الكيبورد من لوحة التحكم ثم Accessibility Options يتم اعطاء علامة صح في filterkey او تعطيلها من الbois اذا احد لديه دراية بهذا الامر نرجو المساعدة

سلام عليك قم بتغير قيمة Parameters الي صفر بدلا من 1 في الكود لانه لديك Parameters واحد والParameters تبدا ب صفر ADOQuery1.Parameters[1].Value := Table_PatientPatNO.Text; اي تصبح ADOQuery1.Parameters[0].Value := Table_PatientPatNO.Text; ليس لدي دلفي 7 لم اقم ب…

سلام عليك تقوم بوضعQRExpr في Detail ثم تكتب في expression ضع count هنالك مثال في المرفقات test.rar

شكرا لكم علي الرد استخدمت هذا الكود لتعطيل الماوس والكيبورد function FuncAvail (_dllname, _funcname: string; var _p: pointer): boolean; var _lib: tHandle; begin Result := false; _p := NIL; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(…

سلام عليكم قمت بتعطيل لوحة المفاتيح ولكن عند الضغط على ctrl + alt + delete يقوم بفتحها ثم قمت بتعطيلها ايضا من الريجستر وعند ضغطها يعطيني رسالة بانه لا يعمل ولكن ايضا يقوم بفتح لوحة المفاتيح .

جرب هذا عسى ان يكون هذا هو المطلوب ADOTable1.Open; ADOTable1.Append; ADOTable1.FieldByName('qyo').AsInteger:=StrToInt(Edit1.Text); ADOTable1.FieldByName('price').AsInteger:=StrToInt(Edit2.Text); ADOTable1exittotal.Value:=ADOTable1qyo.Value * ADOTable1price.Val…

سلام عليك عسى هذا ما تريده StringGrid1.Cells[0,1]:=TimeToStr(Time); StringGrid1.Cells[1,1]:=DateToStr(Date);

سلام عليك يمكنك فعل ذلك في الحدث On TitleClick لل DBgrid مثلا var i:Integer; begin i:=DBGrid1.SelectedIndex; ShowMessage(DBGrid1.Columns.Title.Caption); end; حيث يعطي هذا المثال عنوان العمود الذي قمت باختيارها

هنالك عدة مكونات منها Oxygen Mobile ActiveX Control اذا بحثت عنها سوف تجدها في النت

شكرا جزيلا

شكرا علي الرد ولكنك لم تفهم قصدي البحث لدي يعمل جيدا يقوم البحث بنفس الكلمة انا اريد ان يتم البحث بتطابق جزء من الكلمة حيث يتم ادخال اسم الملف + الامتداد في edit مثلا الملف الذي اريد البحث عنه هو كتاب.doc اذا ادخلت كتا.doc يعطي نفس النتيجة

بعد السلام اريد بحث بجزء من كلمة مثلا اذا اردت البحث عن فريق اقوم بكتابة فري يعطي بحث عن فريق كما في قاعدة البيانات حيث يتم استعمال ( like "%'+ edit1.text+'%") اريد نفس الشي انا اقوم بحث عن ملفات داخل الكمبيوتر عن ملفات الويرد جزاكو الله خيرا

شكرا جزيلا هذا يعمل جيدا

شكرا جزيلا انا كتبتها من قبل لكن عند ما اعطاني خطا فقمت بمسحها هنالك بعض الملفات تعطيني (خطا) رسالة صلاحية لا اعرف السبب ليس هنالك اي صلاحية معطى للملف جزاك الله كل خير