كيف نأخذ ايقونة برنامج لآخر

[mobile]

كيف يمكنني ان اجعل عنصر الصورة في الدلفي ياخذ ايقونة ملف تنفيذي اخر

مثلا فقط :

كود :

image1.picture.loadfromfile('file.exe')

[Goblin]

يمكنك استخرج الايقونة من الملف باستخدام احد معدلات الموارد مثل "PExplore" و "ResHacker".

[TF6M]

السلام عليكم و رحمة الله و بركاته .
يمكن ذلك عن طريق وحدة 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]

شكرا لكم جميع لاهتمامكم بسؤالي
المقصودجعل في برنامجي قائمة mainmenu كل مرة اضيف اليها برنامج اقوم بتشغيلة من برنامجي هذا طبعا ستاخذ القائمة مسار الرنامج وايقونته برمجيا واثناء التنفيذ

وبارك الله فيكم

[TF6M]

1- تابع هدا الموضوع : "لإظافة المسار برمجيا"

http://www.delphi4arab.net/forum/showthread.php?tid=919

2- بعد ما نتحصل على المسار نقوم بإستخراج الأيقونة عادي كما هو موضح في المشاركة #3 .

3- أظف index الصورة للـ MainMenu و أرفق الأندكس بالمسار .

4- و عند حدث الضغط عليها إستعمل الـ ShellExecute .

[mobile]

ساجرب واعاود لك مع mainmenu