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:

zusammenfalten · markieren

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;

Bist Du sicher, dass das an der Funktion liegt? Oder lädst Du die Dinger evtl. in Images, in denen bereits das "Nicht zugeordnet"-Icon geladen wurde?

Aufrufen tue ich die Funktion wie folgt:

markieren

Delphi-Quellcode:

for x := 0 to 7 do
  for y := 0 to 7 do
    if x*y <= ListBox1.Items.Count then
      Image1.Canvas.Draw(x*34, y*34, FileIcon(ListBox1.Items.Strings[x*y]));

(Die .lnk Pfade stehen in der ListBox1)

Und bei normalen Dateitypen funktioniert die Funktion auch astrein, nur bei .lnk Dateien passiert dies.

Erstmal was zur Speicherverwaltung:
(abgesehn davon, daß es eher unklug ist, ein Objekt so zurückzugeben, da man das Prinzip "der Verursacher/Ersteller gibt's auf gleicher Ebene wieder frei" nicht einhalten kann)
Bei einer Exception würde das Object in AIcon als Speicherleck zurückbleiben.

markieren

Delphi-Quellcode:

AIcon := TIcon.Create;
try
  AIcon.Handle := FileInfo.HIcon;
  AIcon.Transparent := True;
except
  AIcon.Free; // bei Fehler freigeben
end;
Result := AIcon;

zusammenfalten · markieren

Delphi-Quellcode:

function FileIcon(FileName: String): TIcon;
var FileInfo: TSHFileInfo;
begin
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  if SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON) <> 0 then
    RaiseLastOSError;
  Result := TIcon.Create;
  try
    Result.Handle := FileInfo.HIcon;
    Result.Transparent := True;
  except
    Result.Free;
  end;
end;

(SHGFI_LARGEICON könnte man auch weglassen ... das ist eh 0)

So, zum Problem.
Hmmm, notfalls wirst du wohl in die LNK-Dateien reinsehn müssen.
(irgendwo gab's in der DP auch 'nen Code zum Auslesen)
Da schauen ob ein Icon zugeordnet ist.
- wenn ja, dann dieses nehmen
- wenn nein, dann über deine Funktion das Icon der Zieldatei besorgen

Der erste Punkt lag mir auch schon auf der Seele. Ich persönlich würde aus der Funktion ja eine Prozedur machen, die das zu befüllende Icon entgegennimmt.

markieren

Delphi-Quellcode:

procedure GetFileIcon(const FileName: String; aIcon: TIcon);
var FileInfo: TSHFileInfo;
begin
  Assert(Assigned(aIcon));
  FillChar(FileInfo, SizeOf(FileInfo), #0);
  if SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON) <> 0 then
    RaiseLastOSError;
  aIcon.Handle := FileInfo.HIcon;
  aIcon.Transparent := True;
end;

Okey, dann ist es jetzt wenigstens stilistisch korrekt

Aber zurück zu meinem Problem. Im Forum steht, dass die Prozedur funktioniert und
auch korrekte Ergebnisse liefert. Kann es daran liegen dass ich Windows 7 (64-bit)
benutze? Vielleicht werden die .lnk Dateien da ja anders verarbeitet?

Eine Prozedur zum Nachverfolgen der Icons habe ich hier auch schon gefunden, diese sind
jedoch ungleich komplizierter, und von daher wollt ich erstmal nachfragen ob es nicht
auch auf einfache weise geht

Danke schonmal,
Edlmann