Icon aus Datei lesen

[PlanetofBlade]

Hi!

Ich versuch grad nen Prog zu schreiben das ausgewählte Programme in ein Menü einbindet und dessen Icon dann auch anzeigt (so wie es ja normalerweiße sein sollte )

So nun sieht mein Source so aus:

Delphi-Quellcode:

var
  hInst: THandle;
  hBild: HICON;
begin
  with dlgOpen do
  begin
    if Execute then
    begin
      NewEntry := TRUE;
      edtProgrammpfad.Text := FileName;

      hInst := BeginUpdateResource(PChar(FileName), FALSE);
      hBild := LoadIcon(HInst, PChar(''));
      Image1.Picture.Icon.Handle := hBild;
    end;
  end;

Die Variable FileName kommt von em Open - Dialog. Jetzt kommt jedes mal, wenn er LoadIcon macht, 0 zurück!

Könnt ihr mir da helf0rn ?

tHx Planet

[MathiasSimmack]

Versuch´s mal mit SHGetFileInfo.

[PlanetofBlade]

Ah ... funkt! Man(n) dankt


Noch was:

Die Icons sehen jetzt leicht beeeescheiden aus, so verschwommen !

Gibts da noch ne Möglichkeit die Icons detaillierter darzustellen ?