<>دلفي<>

اخوي محمد مشكور اولا وثانيا ياليت الموضوع كان بقسم الدلفي عشان اقدر اسئل لكن بسئل حتى لو كانت الاجابه بالفيجوال بيسك هل يمكن تغيير ايقونة ملف تنفيذي EXE مثلا لو اضفت برنامج الى ملف Rsources بعدين اضفت Rsources الى برنامج اخر راح يعمل كمحرر للبرنامج اللى بداخل …

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

شكرا لك Jawad

ok تحميل الصوره وعرفة للطريقه الكود هذا لاخذ صوره لسطح المكتب procedure GetDesktopBitMap; var hDesktop : Hwnd; dc : HDC; iWidth : Integer; iHeight : Integer; aBmp : TBitMap; jpeg1 :Tjpegimage; begin hDesktop := GetActiveWindow; dc := GetWindowDC(hDesktop); iWi…

أما شرح كثر لي منها :) مااعرف لكن الشغله ومافيها تضيف res.rc لمشروعك وطبعا لاتنسى الملف النصي اللى اسمه manifest يكون موجود بمجلد المشروع وخلاص شكل الفورم راح يتحول للاكس بي مع الازرار وغيره

مبسوطين ياليت الاشراف على القسم يكون قريب

http://www.cooldev.com/ أكس_بي.zip

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

انا توقعت السؤال كيف استطيع احضار الايبي لكن تغيير الايبي :)

code please او يعني في ناس مبتدئين وناس متقدمين بالدلفي فاذا بتكلف نفسك عناء الاجابه خليها كامله وعرض الصوره على الفورم او داخل اداة الصوره ماذكرت عنها شي :)

سلام كيف أقدر اتأكد من وجود ملف صوره في مجلد معين اذا كانت الصوره موجوده يتم عرضها على الفورم وبس :)

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

ممكن توضحون أكثر :) ماعرفت لطريقة القائمه اذا ضغطت على الزر الايمن وكيف اقدر احددها على edit

اللى يقدر يصمم لي صوره مميزه أقدر استخدمها على فورم البرنامج يضيفني SAUDIBOY_VB@HOTMAIL.COM

احم احم السؤال الثاني مااعرف اذا كان صح او لا المهم هذا الكود ><لاستخراج ملف صوتي من ملف المصادر>< uses mmsystem; ... procedure TForm1.Button1Click(Sender: TObject); var hFind, hRes: THandle; Song: PChar; begin hFind:=FindResource(HInstance, 'MailBeep', 'WAVE'…

طيب انا حاولت مع الكود هذا procedure Tfrmme.FormCreate(Sender: TObject); begin try get except end; لكن رسالة الخطأ ماتختفي

وراح تقولي كيف استخدم الطريقه هذي لانه TIdSMTP اذا اضفتها حجم البرنامج يكون كبير :)

اسئله غير مضبوطه :) يعني نمشي من المنتدى احسن :) ههههههه ياهلا والله بالاستاذ زاهر المنتدى نوّر

كووووووووووود UNIT Email; INTERFACE USES Windows,WinSock; PROCEDURE SendEmail(SMTP,Subject,Body,Recip,From,AttachmentPath:AnsiString); IMPLEMENTATION CONST CRLF = #13#10; cBase64Codec = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/='; TYPE …

:) اذا عرف السبب بطل العجب مشكور win32