AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Problem beim Auslesen von .lnk-Dateien
Thema durchsuchen
Ansicht
Themen-Optionen

Problem beim Auslesen von .lnk-Dateien

Ein Thema von Edlmann · begonnen am 19. Nov 2010 · letzter Beitrag vom 19. Nov 2010
 
Edlmann

Registriert seit: 19. Nov 2010
212 Beiträge
 
#1

Problem beim Auslesen von .lnk-Dateien

  Alt 19. Nov 2010, 11:46
Guten Nachmittag liebe DP, ich versuche zurzeit, mir meine eigene Schnellstartleiste
zu erstellen, und hierfür muss ich die Icons von .lnk Dateien auslesen.
Hierzu benutze ich eine Funktion, die ich hier
http://www.delphipraxis.net/55412-ic...b-*-lnk-3.html
geschrieben von Martin K gefunden habe, doch ich habe auch schon verschieden andere ausprobiert.
Bei allen habe ich dasselbe Problem: Das Icon des Programms wird erfolgreich ausgelesen, jedoch von
dem Standardmäßigem "Dateityp nicht zugeordnet-Icon" überlagert wird. Anbei ein Screenshot, der deutlich macht
was ich meine. Nun wollt ich fragen ob einer von euch eine Lösung dazu weiß.
Danke im Vorraus,
Edlmann

Hier nochmal die Funktion:

Delphi-Quellcode:
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;
Angehängte Grafiken
Dateityp: jpg Icons-Messed-Up.jpg (61,1 KB, 29x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz