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

اگه در برنامه تون نياز به آيکن هاي جديد داريد با اين برنامه از هر فايل و برنامه اي آيکن استخراج کنين.
[HTML]http://www.4shared.com/file/23575880/31cef9b4/Icon_Extractor.html[/HTML]

سلام...

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

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

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

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

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;


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

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

ممنون خوبه