在Windows环境下怎样给任意一个EXE文件更换图表？

虽然我还没有想好，怎么解决，不过下面的函数或许对你有帮助
extracticon:
HICON ExtractIcon(    HINSTANCE hInst, // instance handle
    LPCTSTR lpszExeFileName, // filename of file with icon
    UINT nIconIndex // index of icon to extract
   );
可以得到可执行文件的图标
在use中加入shellapi
添加一个image用户显示图标
image1.picture.icon.handle:=extracticon(handle,pchar(application.exename),0);
希望对你有所帮助