21-09-2009, 08:08 PM
22-09-2009, 06:15 AM
يمكنك استخرج الايقونة من الملف باستخدام احد معدلات الموارد مثل "PExplore" و "ResHacker".
22-09-2009, 07:23 AM
السلام عليكم و رحمة الله و بركاته .
يمكن ذلك عن طريق وحدة ShellApi هكذا :
أو إستغلال الريسورس لو كان متوفر ؟؟ :
حيث MyIcon هو الـ RessourceID الخاص بالأيقونة المدمجة بالـ Res.Res .
بالتوفيق ,,
يمكن ذلك عن طريق وحدة 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 .
بالتوفيق ,,
24-09-2009, 09:45 PM
شكرا لكم جميع لاهتمامكم بسؤالي
المقصودجعل في برنامجي قائمة mainmenu كل مرة اضيف اليها برنامج اقوم بتشغيلة من برنامجي هذا طبعا ستاخذ القائمة مسار الرنامج وايقونته برمجيا واثناء التنفيذ
وبارك الله فيكم
المقصودجعل في برنامجي قائمة mainmenu كل مرة اضيف اليها برنامج اقوم بتشغيلة من برنامجي هذا طبعا ستاخذ القائمة مسار الرنامج وايقونته برمجيا واثناء التنفيذ
وبارك الله فيكم
26-09-2009, 01:37 PM
1- تابع هدا الموضوع : "لإظافة المسار برمجيا"
http://www.delphi4arab.net/forum/showthread.php?tid=919
2- بعد ما نتحصل على المسار نقوم بإستخراج الأيقونة عادي كما هو موضح في المشاركة #3 .
3- أظف index الصورة للـ MainMenu و أرفق الأندكس بالمسار .
4- و عند حدث الضغط عليها إستعمل الـ ShellExecute .
http://www.delphi4arab.net/forum/showthread.php?tid=919
2- بعد ما نتحصل على المسار نقوم بإستخراج الأيقونة عادي كما هو موضح في المشاركة #3 .
3- أظف index الصورة للـ MainMenu و أرفق الأندكس بالمسار .
4- و عند حدث الضغط عليها إستعمل الـ ShellExecute .
02-10-2009, 12:13 PM
ساجرب واعاود لك مع mainmenu