怎样改变正在运行的exe文件的图标.

procedure ChangeIcon;
var
   MyIcon: TIcon;
   FileInfo: SHFILEINFO;
begin
   MyIcon := TIcon.Create;
   try
      SHGetFileInfo(PChar('File.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
      MyIcon.Handle := FileInfo.hIcon;
      DestroyIcon(FileInfo.hIcon);
      MyIcon.SaveToFile('Icon.ico');
      Application.Icon := MyIcon;
   finally
      MyIcon.Free;
   end;
end;