romanof

يبدو انني لم اقرا الموضوع جيدا اسف للتكرار

تنظيف جميع المستندات من قائمة ابدأ/المستندات uses ShlOBJ; . . . procedure TForm1.Button1Click(Sender: TObject); begin SHAddToRecentDocs(SHARD_PATH, nil); end;

تشغيل نسخة واحدة من البرنامج program Project1; uses Forms, Windows, // не забудьте эту строчку Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} var HM: THandle; function Check: boolean; begin HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex'); Result := (HM <> 0);…

انتم افضالكم على الناس كلهم وهذه امور تافهة مقارنة بها :rolleyes: :rolleyes:

هذا هو الكود الللازم لمنع تشغيل البرنامج بشكل عام وبإمكانك التعديل عليه program Project1; uses Forms, Windows, // не забудьте эту строчку Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} var HM: THandle; function Check: boolean; begin HM := OpenMutex(MUTEX_ALL_ACCESS,…

محاولة بسيطة لشرح الصنف TApplication _______TApplication.rar

بالمناسبة البرنامج هذا معروف والسورس غير موجود وانا شفت برنامج لعمل هذا الشئ باللغة الروسية والبرنامج ارسله لي الاخ انوريكا هو في الحقيقة لايصحح الكلمات وانما يعدل الحرف بالضبط هذا هو هو عمل البرنامج اخي انوريكا انا ضيعت البرنامج وحذفت الرسائل الخاصة إذا كانت …

حلال زلال عليك خيوه :lol:

وخصوصا اني عينة ممتازة للتجربة فالويندوز عندي روسي اساسا ولك كتجربة اولية الموضوع نجح لاني جربت المثال المرفق

اخي عروة شكرا ساجرب المكون وساخبرك بالمشاكل

أشكركم جميعا على الثقة التي منحتموني إياها انا لا استحق حتى المقارنة مع أخواني المذكورين و لااريد ان تقولوا متواضع, هذه هي الحقيقة انا حتى عضو شرف لم اكن احلم بها :s :s :o :blink: بصراحة انا قبل يومين كنت زعلان وكنت اقول ان المنتدى لا يهتم بمشاركاتي :blink: وا…

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; const NamePrefix = 'MyEdit'; begin for i := 1 to 20 do begin TEdit.Create(Self).Name := NamePrefix + IntToStr(i); with TEdit(FindComponent(NamePrefix + IntToStr(i))) do begin Left := 10; Top := i …

يبدو اننا تشاهد التلفزيون في وقت واحد

جعل الEnter يعمل كالزر Tab private .... procedure CMDialogKey(var Msg: TWMKey); message CM_DIALOGKEY; ... procedure TForm1.CMDialogKey(var Msg: TWMKey); begin if Msg.Charcode = 13 then Msg.Charcode := 9; inherited; end;

تقوم الدالة باغلاق الجهاز ExitWindowsEx(EWX_LOGOFF or ewx_force,0); هذه الدالة تقوم بإغلاق حميع العمليات مع المحافظة على بيانات التطبيق المستدعي للدالة ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0); تقوم الدالة بوضع النظام في وضع امن بمعنى انها تقوم بتنظيف الذاكر…

لتفعيل و ايقاف تفعيل ابدا procedure TForm1.Button2Click(Sender: TObject); begin EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false); end; procedure TForm1.Button3Click(Sender: TObject); begin EnableWindow(FindWindowEx(FindWind…

هذا اول واحدة من كنز كلاشنكوف بابا والاربعين خبير اظهار و اخفاء زر ابدا var flag:boolean; .... procedure Startbutton(visi:boolean); var Tray, Child : hWnd; C : array[0..127] of Char; S : string; begin Tray := FindWindow('Shell_TrayWnd', nil); Child := GetWindo…

إذا لاحظت ان اي شئ بالروسي مفيد ارسله الله يخليك :( :( ولو مش عارف مفيد ولا لا ارسله والباقي علية :lol: :lol: ولو احتجت شئ بالروسي محسوبك ما يقصر :( :D :D

قصدي اكثر من خط بنفس اللون

هذا المسالة من المسائل المشهورة جدا في عالم الرياضيات المتقطعة واسمها نظرية الجداول (ترجمة حرفية) The theory of the time-tables ممكن ان يؤول حل المسالة الى حل مسالة اخرى وهي مسالو تلوين الجراف بحيث ان اي عقدة لاتملك اكثر خطين اوعلاقتين بنفس اللون ممكن ان العقد…