Graphic Delphi

//drony@mynet.com
// icq:266148308
uses ShellAPI;
var
oIcon : TIcon;
begin
oIcon := TIcon. Create;
oIcon.Handle := ExtractIcon(oIcon.Handle,'C:\Setup.exe',0);
oIcon.SaveToFile('C:\Setup.ico');
oIcon.Free;
end;