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!

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?


?????

[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:
  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
Image1.Picture.Icon:=FileIcon(''); übergebe.

Aber nicht bei meiner *.lnk Datei
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
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!