+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نأخذ ايقونة برنامج لآخر (/showthread.php?tid=1221)
كيف نأخذ ايقونة برنامج لآخر - mobile - 21-09-2009
كيف يمكنني ان اجعل عنصر الصورة في الدلفي ياخذ ايقونة ملف تنفيذي اخر
مثلا فقط :
كود :
image1.picture.loadfromfile('file.exe')كيف نأخذ ايقونة برنامج لآخر - Goblin - 22-09-2009
يمكنك استخرج الايقونة من الملف باستخدام احد معدلات الموارد مثل "PExplore" و "ResHacker".
كيف نأخذ ايقونة برنامج لآخر - TF6M - 22-09-2009
السلام عليكم و رحمة الله و بركاته .
يمكن ذلك عن طريق وحدة ShellApi هكذا :
PHP كود :
Uses
shellapi;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
With TIcon.Create Do
Begin
Image1.Picture.Icon.Handle:=ShellApi.ExtractIcon(0,Pchar(ParamStr(0)),0);
Free;
End;
End;
أو إستغلال الريسورس لو كان متوفر ؟؟ :
PHP كود :
{$R Res.Res}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Image1.Picture.Icon.Handle:=LoadIcon(Hinstance,PChar('MyIcon'));
End;
حيث MyIcon هو الـ RessourceID الخاص بالأيقونة المدمجة بالـ Res.Res .
بالتوفيق ,,
كيف نأخذ ايقونة برنامج لآخر - mobile - 24-09-2009
شكرا لكم جميع لاهتمامكم بسؤالي
المقصودجعل في برنامجي قائمة mainmenu كل مرة اضيف اليها برنامج اقوم بتشغيلة من برنامجي هذا طبعا ستاخذ القائمة مسار الرنامج وايقونته برمجيا واثناء التنفيذ
وبارك الله فيكم
كيف نأخذ ايقونة برنامج لآخر - TF6M - 26-09-2009
1- تابع هدا الموضوع : "لإظافة المسار برمجيا"
http://www.delphi4arab.net/forum/showthread.php?tid=919
2- بعد ما نتحصل على المسار نقوم بإستخراج الأيقونة عادي كما هو موضح في المشاركة #3 .
3- أظف index الصورة للـ MainMenu و أرفق الأندكس بالمسار .
4- و عند حدث الضغط عليها إستعمل الـ ShellExecute .
كيف نأخذ ايقونة برنامج لآخر - mobile - 02-10-2009
ساجرب واعاود لك مع mainmenu