Welche Auflösungen besitzt ein *.ico-File

[bitsetter]

Ich weis aber nicht, ob folgenes immer funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon : TIcon;
begin
  Icon:= TIcon.Create;
  try
    if OpenPictureDialog1.Execute then
    begin
      if FileExists(OpenPictureDialog1.FileName) then
      begin
        Icon.loadfromfile(OpenPictureDialog1.FileName);
        Caption := 'Breite: '+ inttostr(Icon.width);
        Caption := Caption+ '   Höhe: '+ inttostr(Icon.Height);
      end;
    end;
  finally
    Icon.Free;
  end;
end;