Mega Code Archive

 

Categories / Delphi / Graphic

 

Read out the main icon of a exe-file

procedure TForm1.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;