SalarSoft
پنج شنبه 15 مرداد 1383, 16:26 عصر
می خوام آیکون یه برنامه رو که با دلفی نوشته شده با اساتفاده از کد عوض کنم.
من برای این کار از تابع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;
من برای این کار از تابع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;