procedureTForm1.Button1Click(Sender: TObject); var
Icon: TIcon; FileInfo: SHFILEINFO; begin
Icon := TIcon.Create; try
// Get the Icon SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); icon.Handle := FileInfo.hIcon; DestroyIcon(FileInfo.hIcon); // Save the Icon to a file: icon.SaveToFile('IconFromExe.ico'); // Set the Icon as Application Icon (temporary) Application.Icon := icon; finally
Icon.Free; end
; end
;