حسين طياوي

الإسم : Chessboard فكرة عامة : مكون + مثال عن لعبة شطرنج الإصدار : All Chessboard.rar

Multimedia_Player.rar الإسم Prj Multimedia_Player.rar player فكرة عامة : مثال عن التعامل مع أوامر MCISendString الإصدار : DElphi 7 عرض : إنكليزي

المثال المرفق يقوم بذلك كل عام والجميع بألف حير EX.rar

أشكركم على المساعدة وعفوا أخ محمد إتضحت الفكرة الأن

شكرا أخي محمد على الرد السريع لكنني لم أقصدتضمين برنامجي مجموعة من الملفات ليعرضها Resource ولكنني قصدت أن يقوم برنامجي بإنشاء ملفات تطبيفات جديدة ولكنها معدة لتنفيذ أموار محددة مثلا يفتح المستخدم البرنامج ثم يقوم بوضع ملفات مثل صوره الشخصية فيقوم البرنامج بإن…

السلام عليكم وشكر على المساعدة سلفا أود أن أعرف الطريقة والتي يمكنني من خلالها إنتاج ملفات تنفيذية من برنامج تماما مثل ملفات بواسطة الأوتوران (Multimedia bliuder) الأوتران ليس كربامج تنصيب والأهم هي معرفة الفكرة ليس الكود الجاهز الذي ربما لن أفهمه بالشكل الصحي…

جرب هذا الموضوع http://www.swissdelphicenter.ch/torry/showcode.php?id=672

عرف متغير عام var SFile:String; للتحميل SFile:=TreeView1.Selected.Text+'.rtf'; RichEdit1.Lines.LoadFromFile(SFile); لحفظ التغيرات SFile:=TreeView1.Selected.Text+'.rtf'; RichEdit1.Lines.SaveToFile(SFile);

الملفات الدالة ExtractFileName تعيد جملة تحوي إسم الملف فقط if OpenDialog1.Execute then Label1.Caption:=OpenDialog1.FileName; Label2.Caption:=ExtractFileName(OpenDialog1.FileName); الدالة ExtractFilePath تعاكس الدالة السابقة أي تعيد مسار الملف دون إسمه وهذا يس…

أحاول المشاركة حيب مقدرتي هنالك العديد من الدوال التي تساعدنا على التعامل مع المجلدات الدالة CreateDir تعمل على إنشاء مجلد في مسار نحن نحدده CreateDir('C:\hussein') // انشاء مجلد في القرص C اسمه hussein الدالة RemoveDir تحذف مجلد نحن نحدد ReMoveDir('C:\hussein…

s مشكور من كل قلبي

عذرا أخي إنت ماحددة هدفك بس إذا كان سؤالك يعني نصنع فورم مستدير أو بيضوي غير القيم مثلا ليصبح الفورم بيضوي procedure TForm1.FormCreate(Sender: TObject); var rgn: HRGN; begin Form1.Borderstyle := bsNone; rgn := CreateRoundRectRgn(0,// x-coordinate of the region…

هذه مجموعة من الأكواد التي عثرت عليها وأحببت مشاركتكم بها هذا كود لإنشاء فورم بزوايا مستديرة procedure TForm1.FormCreate(Sender: TObject); var rgn: HRGN; begin Form1.Borderstyle := bsNone; rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left …

هذه مجموعة من الأكواد التي عثرت عليها وأحببت مشاركتكم بها هذا كود لإنشاء فورم بزوايا مستديرة procedure TForm1.FormCreate(Sender: TObject); var rgn: HRGN; begin Form1.Borderstyle := bsNone; rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left …

مشكور أخي فادي

مشكور من القلب