Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Icon aus Datei lesen (https://www.delphipraxis.net/16369-icon-aus-datei-lesen.html)

PlanetofBlade 16. Feb 2004 08:50


Icon aus Datei lesen
 
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 :wink: )

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 ? :roll:

tHx Planet

MathiasSimmack 16. Feb 2004 09:49

Re: Icon aus Datei lesen
 
Versuch´s mal mit SHGetFileInfoSHGetFileInfo.

PlanetofBlade 16. Feb 2004 10:11

Re: Icon aus Datei lesen
 
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 ?


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz