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

[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: