Problem mit ExtractAssociatedIcon

[Zacherl]

Probiers eventuell mal mit SHGetFileInfo Deine Funktion liefert dir erstmal die 32x32 Pixel großen Icons, die in deinem ListView nicht wirklich schön aussehen. Außerdem geht dir zusätzlich noch irgendwie die Transparenz verloren.

Folgende Funktion liefert dir das 16x16 Pixel Icon einer Datei:

Delphi-Quellcode:

function GetFileIcon(FileName: String): HICON;
var
  FileInfo: TSHFileInfo;
begin
  Result := 0;
  if (SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
    SHGFI_ICON OR SHGFI_SMALLICON OR SHGFI_SYSICONINDEX) > 0) then
  begin
    Result := FileInfo.hIcon;
  end;
end;

Du kannst es dann einfach folgendermaßen zu deiner ImageList hinzufügen:

Delphi-Quellcode:

var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  try
    Icon.Handle := GetFileIcon(GetProcessPathByPID(MyProcessID));
    if (Icon.Handle > 0) then
    begin
      ImageList1.AddIcon(Icon);
    end;
  finally
    Icon.Free;
  end;
end;

Damit die Transparenz erhalten bleibt stell mal im OI die Eigenschaft ColorDepth von cdDeviceDependent auf cd32Bit.

[delphinub23]

Habe ich schon getan, aber genau diese Variante gibt keinen eindeutigen Pfad bei den 64Bit Prozessen zurück, denke ich.
Auf jeden Fall konnte ich es mit dieser Methode nicht nach meinen Wünschen umsetzen.

MfG,
dnub

[Zacherl]

Nein, nein, um den Pfad zu ermitteln, kannst du doch jetzt die GetProcessPathByPID() Funktion von mir benutzen. Den dadurch erhaltenen Pfad übergibst du an die GetFileIcon() Funktion und voilla Habe meinen vorherigen Post noch durch ein Beispiel ergänzt.

[delphinub23]

Ich probiere es gleich nochmal aus...aber erstmal gibt essen hrhr

[delphinub23]

Ok, habs jetzt mal mit SHGetFileInfo() ausprobiert und muss feststellen, dass ich nun aufgrund deiner GetProcessPathByID() Funktion eine sehr gute Lösung für mein Problem gefunden habe.
Die Icons sehen sogar deutlich! besser aus.

Und wiedermal bin ich dir zu Dank verpflichtet

MfG,
dnub