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;
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;