استخراج آيکن از هر برنامه اي (در صورت تکراري بودن ببخشيد)

[Arash_XL7710i_207]

اگه در برنامه تون نياز به آيکن هاي جديد داريد با اين برنامه از هر فايل و برنامه اي آيکن استخراج کنين.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[soldier]

سلام...

تشکر. جالبه. اما ببخشید این چه ربطی داره به دلفی !

در کل ممنون و موفق باشی

[Shahriar-b]

ممنون ولی برای اینکار Resource Hacker از همه بهتره

[Arash_XL7710i_207]

در برنامه ميتونيد آيکن هاي جديدي استفاده کنيد.

[as13851365]

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
// Uses = Shellapi
if open.Execute then
begin
Form1.Icon.Handle:=ExtractIcon(0,pchar(open.FileNa me),0);
if save.Execute then
begin
form1.Icon.SaveToFile(pchar(save.FileName)+'.ico') ;
showmessage('آيکن مورد نظر با موفقيت استخراج شد');
end;
end;
end;


از این تابع استفاده کن آیکن هر فایل اجرائی را برایت استخراج می کنه

[as13851365]

اگر مشکل داشتی بگو

[Arash_XL7710i_207]

ممنون خوبه