چطور آیکون یک برنامه رو میشه عوض کرد؟

[hex161]

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

[DAMAVAND]

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

البته اگه جستجو میکردی زودتر به نتیجه میرسیدی!:متفکر:
این میتونه کمکت کنه !
البته کیفیت ایکون خیلی بالا نیست, اگه دوستان توابع بهتری رو سراغ دارن که بتونه ایکون رو با کیفیت بالا عوض کنه اینجا بزارن.:چشمک:
من تا حالا پیدا نکردم !:گیج:

[Arman_1367]

برای این کار می توانی از توابع زیر استفاده کنی:

Var M:THandle;
begin
M:=BeginUpdateResource('C:\Windows\Notpad.exe',Fal se);
If not UpdateResource(m,RT_ICON,MAKEINTRESOURCE(IndexOfIc on),1033,@Data,Sizeof(Data)) then
Showmessage('Can Change Resource');
If not EndUpdateResource(m,false) then
ShowMessage('Can not write to file');
end;


امید وارم به درد بخور باشه.

یا حق...