Icon einer Internetseite auslesen

[marabu]

Hier ein elektrisches Betthupferl:

Delphi-Quellcode:

uses
  UrlMon;

procedure StoreFavIcon(url: String; fn: TFileName);
begin
  UrlDownloadToFile(nil, PChar(url), PChar(fn), 0, nil);
end;

begin
  StoreFavIcon('http://www.yahoo.de/favicon.ico', 'c:\daten\favicons\yahoo.ico');
end;

Grüße vom marabu