Icon aus beliebiger Datei extrahieren (z.B. *.lnk)

[Martin K]

Hallo

wie kann man aus einer beliebigen Datei das dazugehörige Icon ermitteln?
Sollte nicht nur bei EXE-Dateien gehen, wie z.B. bei ExtractIconEx - sondern auch z.B. bei *.lnk Verknüpfungen.
Komme ich da mit SHGetFileInfo weiter?
Am besten wäre, ich bekomme das Icon der *.lnk als TBitmap geliefert.

Danke, schon im Voraus!

[kingflo]

Also bei exe funzt dieser code bei anderen sachen hab ichs noch net getestet und kann ich hier leider auch nicht versuchs einfach...

Delphi-Quellcode:

function GetDefaultIcon(Filename: Widestring; IconTyp: Cardinal = 2): HIcon;
var
  Info: TSHFileInfoW;
  Flags: Cardinal;
  ext: WideString;
  idx: word;
begin
  //Result := Ticon.Create;
  ext := WideExtractFileExt(Filename);
  idx := 0;
  if  WideFileExists(Filename) then
  begin
    result := Tnt_ExtractAssociatedIconW(HInstance, PWideChar(Filename), idx);
    exit;
  end;
  {if ext = '.ico' then
  begin
    result := LoadFromFile(Filename);
    exit;
  end;}

  begin {DW 1.4}
    Flags := 0;
    case IconTyp of
      0: Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES;
      1: Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;
      2: Flags := SHGFI_ICON or SHGFI_SHELLICONSIZE or SHGFI_USEFILEATTRIBUTES;
    end;
    Tnt_SHGetFileInfoW(PWideChar(ext), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), Flags);
    Result := Info.hIcon;
  end;
end;

{TntWiindows.pas}

function Tnt_ExtractAssociatedIconW(hInst: HINST; lpIconPath: PWideChar;
  var lpiIcon: Word): HICON;
begin
  if Win32PlatformIsUnicode then
    Result := ExtractAssociatedIconW{TNT-ALLOW ExtractAssociatedIconW}(hInst, lpIconPath, lpiIcon)
  else
    Result := ExtractAssociatedIconA{TNT-ALLOW ExtractAssociatedIconA}(hInst,
      PAnsiChar(AnsiString(lpIconPath)), lpiIcon)
end;

[Martin K]

Danke schon mal für deinen Code,
aber da kommen bei mir versch. "Undeclared identifier", z.B. bei 'WideFileExists'.
Fehlt da ein Eintrag in uses ?

bei EXE-Dateien ist das nochmal was anderes, weil das Icon in der exe integriert ist.
Bei einer *.lnk Verknüpfung ist ja nur ein Verweis drin, der auf ein Icon zeigt (z.B. wenn man in Windows die Eigenschaften einer Verknüpfung aufruft und dann auf "Anderes Symbol" klickt, erhält man diesen Verweis auf das Icon).

Diesen Verweis einer *.lnk will ich jetzt mit Delphi auslesen,
und dann das Icon in ein TBitmap laden.

Der Verweis zeigt meißtens auf eine EXE-Datei, ICO-Datei oder DLL-Datei, die dann das Icon enthalten.

Also müsste ich erst den Verweis auf das Icon auslesen,
und dann das Icon aus der EXE, ICO oder DLL extrahieren und in ein TBitmap laden.

Weiß da jemand eine Lösung?

[ichbins]

Theoretisch müsste es so funken:

Delphi-Quellcode:

uses
  shellapi

[...]

function iconhandle(filename:string):hicon;
var
  psfi:_shfileinfoa;
  c1,c2,c3:cardinal;
begin
  shgetfileinfo(pansichar(filename),c1,psfi,c2,c3);
  result:=psfi.hicon;
end;

//Verwendung:

var
  i:ticon;
begin
  i:=ticon.Create;
  i.Handle:=iconhandle('c:\file.lnk');

mit der Praxis sieht es immer ein bisschen anders aus :wall:

als iconhandle gibt er immer 0 raus :?

[Martin K]

Hab deinen Code mal getestet, das Programm läuft auch.

Hab das noch unten hinzugefügt:

Delphi-Quellcode:

  Image1.Picture.Icon:=i;

aber es wird einfach nix im Image1 angezeigt.

Dann kommen noch diese Meldungen:

Zitat:

[Warning] Unit1.pas(39): Variable 'c1' might not have been initialized
[Warning] Unit1.pas(39): Variable 'c2' might not have been initialized
[Warning] Unit1.pas(39): Variable 'c3' might not have been initialized

Aber daran kann's ja wohl nich liegen...

Irgend eine Idee ? :gruebel:

[ichbins]

die Funktion will noch andere Werte zurückliefern, die aber uninterresant sind. ich muss aber variablen angeben, in die die Funktion sie speichern will. Also helf ich mir mit c1, c2 und c3 aus. Diese Variablen sind vollkommen unbedeutend.

Die Funktion liefert irgendwie immer das Icon-Handle 0 zurück... :?

psfi.hicon in der Funktion hat aber noch nen wert :gruebel:

oder doch nicht? gerade hat das showmessage eine Zahl ausgegeben. Das war aber, als ich eine nicht existierende Datei probiert hab.

Versuch mal im Forum zu suchen. Da gibt's bestimmt was.

[Martin K]

Was sind denn für Daten in einem _shfileinfoa drin?
Und was ist das überhaupt?
(Also in diesem Fall das 'psfi')

[ichbins]

das isn record.


die Funktion shgetfileinfo braucht eben das als Parameter. Es enthält meherere Informationen, die von der Funktion dann gesetzt werden. Gib mal innerhalb der iconhandle-funktion die Buchstabenfolge

Delphi-Quellcode:

psfi.

ein, dann müsste er dir alle enthaltenen Typen auflisten (Programmierhilfe)

[Martin K]

Danke, das hab ich schon.
Meinst du, man sollte in psfi schon ein paar Werte reinschreiben, bevor

Delphi-Quellcode:

shgetfileinfo(pansichar(filename),1,psfi,1,1);

aufgerufen wird ?

Hab das im Forum gefunden:

Delphi-Quellcode:

tmpImgLst.Handle := SHGetFileInfo(PChar(FName),0,FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX or SHGFI_ICON); 
tmpImgLst.GetBitmap(FileInfo.iIcon,tmpBitmap);

Meinst du, das hilft uns weiter?

[ichbins]

Jetzt hab ichs:
DP zu Fileicon

der Thread (ist das richtig geschrieben?) wirkt ziemlich selbstsicher.

Da heisst es so:

Delphi-Quellcode:

procedure TForm1.DrawFile(Name: String);
var
  FileInfo: TSHFileInfo;
  ImageListHandle: THandle;
  aIcon: TIcon;
begin
  // Speicher löschen
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  // Handle der Image Liste der ausgewählten Datei ermitteln
  ImageListHandle := SHGetFileInfo(
    PChar(Name), 0, FileInfo, SizeOf(FileInfo),
    // großes Icon verlangen
    SHGFI_ICON or SHGFI_LARGEICON
  );
  try
    // TIcon Objekt erstellen
    aIcon := TIcon.Create;
    try
      // Icon Handle zuweisen
      aIcon.Handle := FileInfo.hIcon;
      // Transparent darstellen
      aIcon.Transparent := True;
      with PaintBox1 do
      begin
         // Paintbox auf die entsprechende Größe bringen
         Width := aIcon.Width;
         Height := aIcon.Height;
         Application.ProcessMessages;
         // Paintbox löschen
         Canvas.Rectangle(-1, -1, Succ(Width), Succ(Height));
         // Icon darstellen
         Canvas.Draw(0, 0, aIcon);
      end;
    finally
      // TIcon Objekt freigeben
      FreeAndNil(aIcon);
    end;
  finally
    // Icon der Shell wieder freigeben
    DestroyIcon(FileInfo.hIcon);
    // Icon Liste der Shell wieder freigeben
    ImageList_Destroy(ImageListHandle);
  end;
end;

das geht
:bouncing4:
:cheers:

[Martin K]

Jo, danke erst mal.

Aber die letzte Zeile will Delphi irgendwie nich annehmen...

[Martin K]

leider, leider, leider....
funzt bei mir immer noch nich! :cry:

Was hast Du gemacht, damit's geht ???

Hab die letzt Zeile einfach weggelassen und PaintBox1 mit Image1 ersetzt.
Programm läuft auch, aber das Image1 ist einfach nur weiß...

[ichbins]

die kannste rausnehmen :) hab ich auch gemacht. es könnte dann nur sein, dass du, wenn du 1000000 Icons ausgelesen hast, der Speicher voll is, weil du die Imagelist nicht mehr leermachst [zur letzten Zeile]

du musst den Code eben so weit abkürzen, dass er sich nurnoch um das Icon kümmert. Ich machs mal schnell...

[Martin K]

Warum läufts bei mir nich?
:roll: :cry: :? :( :coder2:

?????

[ichbins]

Jau, so gehts auch:

Delphi-Quellcode:

function FileIcon(Name: String):ticon;
var
  FileInfo: TSHFileInfo;
  ImageListHandle: THandle;
  aIcon: TIcon;
begin
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  ImageListHandle := SHGetFileInfo(
    PChar(Name), 0, FileInfo, SizeOf(FileInfo),
    SHGFI_ICON or SHGFI_LARGEICON
  );
  try
    aIcon := TIcon.Create;
    try
      aIcon.Handle := FileInfo.hIcon;
      aIcon.Transparent := True;
    except end;
  except end;
  result:=aicon;
end;

der liefert dir dann ein gültiges Icon zurück.

[Martin K]

warte mal....
Hab grad als Parameter einfach '' übergeben, also:

Delphi-Quellcode:

  DrawFile('');

Und es wird das Windows-Ordner Symbol angezeigt !!!

? Muss also an der *.lnk Datei liegen ?

[Martin K]

Der neue Code funzt auch nur, wenn ich einen Ordner also

Delphi-Quellcode:

Image1.Picture.Icon:=FileIcon('');

übergebe.

Aber nicht bei meiner *.lnk Datei :cry:
Geht's denn bei dir mit einer *.lnk Verknüpfung ?

[ichbins]

lnks kann er bei mir schon auslesen. mach mal nicht image1.picture.icon sondern image1.canvas.draw(fileicon(filename));

hier mal mein source:

Delphi-Quellcode:

function FileIcon(Name: String):ticon;
var
  FileInfo: TSHFileInfo;
  ImageListHandle: THandle;
  aIcon: TIcon;
begin
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  ImageListHandle := SHGetFileInfo(
    PChar(Name), 0, FileInfo, SizeOf(FileInfo),
    SHGFI_ICON or SHGFI_LARGEICON
  );
  try
    aIcon := TIcon.Create;
    try
      aIcon.Handle := FileInfo.hIcon;
      aIcon.Transparent := True;
    except end;
  except end;
  result:=aicon;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if not opendialog1.Execute then exit;
  Application.Icon:=fileicon(opendialog1.FileName);
end;

bei mir stellt er das ausgelesene Icon als Anwendungssymbol ein. Klappt prima.


[edit] sch... eigentlich müsste ich ja eine dialektische Erörterung als Deutsch-Hausaufgabe schreiben... aber Mammi wird schon nicht schauen.

[Martin K]

Bei

Delphi-Quellcode:

image1.canvas.draw(fileicon(.......));

kommt:

Zitat:

[Error] Unit1.pas(56): Incompatible types: 'Integer' and 'TIcon'

[Martin K]

Hmm... Deutsch...
Also ich hab Herbstferien!!!

Übrigens kannst du deinen Code noch vereinfachen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if opendialog1.Execute then 
     Application.Icon:=fileicon(opendialog1.FileName); 
end;

Aber vielen vielen Dank für deine Hilfe, werd's schon hinkriegen! :coder2:

[ichbins]

integer ist der Typ eines Handles. Du versuchst, einem Icon.Handle ein Icon zuzuweisen. Du musst einem Icon.Handle ein Icon.Handle zuweisen.

[Martin K]

Hmm...
irgendwie geht's immer noch nich.

Selbst bei:

Delphi-Quellcode:

  Application.Icon:=fileicon(....);

hab ich das normale Windows-Programm-Symbol bei beiner Application, aber nicht das der '.lnk

[Martin K]

Ou, Ou Ou Ou.... :wall:

hab die ganze Zeit den Falschen Ordner übergeben, und da gab's die *.lnk Datei dann natürlich nich.

Jo, bei mir funzts jetzt auch prima!!! :thumb:

Vielen Dank, nochmal...
hast mir wirklich weitergeholfen!
:spin2:

[Martin K]

Für alle, die das Icon aus einer beliebigen Datei haben möchten,
hier der endgültige Quellcode:

Delphi-Quellcode:

uses ... ShellApi;

...

function FileIcon(FileName: String): TIcon;
var FileInfo: TSHFileInfo; AIcon: TIcon;
begin
  FillChar(FileInfo,SizeOf(FileInfo),#0);
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);
  AIcon:=TIcon.Create;
  Try
    AIcon.Handle:=FileInfo.HIcon;
    AIcon.Transparent:=True;
  Except end;
  Result:=AIcon;
end;

Vielen Dank nochmal an ichbins