عـوض کـردن آیـکـون یـک فـایـل

[SalarSoft]

می خوام آیکون یه برنامه رو که با دلفی نوشته شده با اساتفاده از کد عوض کنم.
من برای این کار از تابعUpdateResource استفاده کردم.

ولی مشکلی که هست اینه که نام آیکون در Resource برنامه مورد نظر ایجاد میشه ولی تصویر آیکون به درستی در فایل قرار نمیگیره.

در ضمن من از این کد استفاده می کنم. نمیدونم مشکلش از کجاست. از دوستان خواهش می کنم کمکم کنید! :)

procedure UpdateResIcon(exe, ico: TFilename);
var
fRes:Cardinal;
fstream:TMemoryStream;
begin
fRes:=BeginUpdateResource(Pchar(exe),false);
fstream:=TMemoryStream.Create;
try
fstream.LoadFromFile(ico);
UpdateResource(fRes,RT_Group_ICON,'MAINICON',(1033 ),fstream.Memory,fstream.Size);
UpdateResource(fRes,RT_ICON,'MAINICON',(1033),fstr eam.Memory,fstream.Size);
EndUpdateResource(fRes,false);
finally
fstream.Free;
end;
end;

[SalarSoft]

یعنی کسی نسیت این جور چیزا رو بدونه! :-x

[arshia_]

من متوجه نشدم...شما برنامه خودتون رو می گی یا برنامه ای که توسط فرد دیگری نوشته شده و کامپایل شده....برای مورد اول کافی است که آیکون فرم برنامه رو عوض کنی تا مشکل حل بشه...
برای مورد دوم هم برنامه Resource Hack استفاده کن///

[SalarSoft]

من برای یک فایل دیگر میگم.

در ضمن با استفاده از کد می خوام این کار رو انجام بدم و حتما باید از طریق کد باشه!
و یه نکته دیگه اینکه من می خوام این با کدی مانند کد بالا انجام بشه(یعنی راه دیگه ای نیست). و کد بالا یه اشکالی داره که من نمی دونم. اگه کمکم کنید ممنون میشم! :wink:

روش هایی رو که شما گفتین که اگه نمی دونستم دیگه باید ترک دنیا می کردم :P

[hr110]

با سلام

1- کمی صبر داشته باش :roll:
2- این برنامه را نمیدانم از کدام سایت گرفته ام ولی فکر کنم به درد شما بخورد:

[SalarSoft]

آقای ربیعی دست شما درد نکند! :kiss:

نمی دانید چه کمک بزرگی به به من کردید!
و نمی دانید چه کار ثواب بزرگی انجام داده اید! :flower: