برای این کار شما باید اول مسیر ICON رو وارد کنید و بعد فایل مورد نظر را در درایو مورد نظر کپی کنید (هیچ کدام از این مراحل را لازم نیست شما طی کنید بلکه تمام کارها را باید با برنامه نوسی انجام دهید).
یک procedure به نام changeicon به صورت زیر تعریف کنید .
procedure changeicon(iconname:string;diskname:string);
var a:textfile;
begin
copyfile(pchar(iconname),pchar(diskname+":\dcblog.ico"),false);
filegetattr(diskname+":\dcblog.ico");
assignfile(a,"f:\AUTORUN.inf");
rewrite(a);
writeln(a,"[AUTORUN]");
writeln(a,"ICON=dcblog.ico");
closefile(a);
filegetattr(diskname+":\AUTORUN.inf");
end;
اجرا کنید button را در یک Procedure حالا این
procedure TForm1.Button1Click(Sender: T);
begin
changeicon("f:\aa.ico","c");
end;