Vom Form Handle zum Icon

[backdraft]

Hallo,

welche Möglichkeit habe ich, wenn ich das Fenster Handle habe, mir das Icon des Fensters in ein TBitmap zu kopieren?

Danke Oliver

[DGL-luke]

Du kommst vom fensterhandle zum prozesshandle, von dem zum modulnamen und damit zum pfad der exe. und aus der kannst du die icons auslesen.

Geht alles mit WinAPI-Funktionen - Frag mich aber nicht, wie die heissen.

[backdraft]

Zitat:

Zitat von DGL-luke

Du kommst vom fensterhandle zum prozesshandle, von dem zum modulnamen und damit zum pfad der exe. und aus der kannst du die icons auslesen.

Geht alles mit WinAPI-Funktionen - Frag mich aber nicht, wie die heissen.

nicht das Programm Icon, sondern das Icon vom Fenster

[idontwantaname]

ich weiß zwar nicht obs hilft, aber schau dir mal das hier an:
http://msdn.microsoft.com/library/en...eving_property

[backdraft]

Zitat:

Zitat von idontwantaname

ich weiß zwar nicht obs hilft, aber schau dir mal das hier an:
http://msdn.microsoft.com/library/en...eving_property

Also hab spontan mal

Delphi-Quellcode:

vbitmap.Handle := GetProp(AHandle, 'PROP_ICON');

probiert, liefert aber leider als Handle 0 zurück.

[DGL-luke]

@backdraft: Ich meinte auch das Icon vom Fenster...

[backdraft]

Zitat:

Zitat von DGL-luke

@backdraft: Ich meinte auch das Icon vom Fenster...

woher weiss ich welches fenster in der exe?
ich muss doch auch irgendwie rankommen, wenn das prog läuft

[backdraft]

Habs gefunden, es geht mit:

vIcon := SendMessage(AHandle, WM_GETICON, ICON_SMALL, 0);

oder

vIcon := SendMessage(AHandle, WM_GETICON, ICON_BIG, 0);

von da aus gehts ja leicht zum Bitmap.

Danke trotzdem

[ghost007]

mal ne blöde frage ... :oops:
wie komm ich dann weiter zum bitmap? weil des sendmessage liefert mir doch nur 'nen ... integer?

MfG - Ghost007

[DGL-luke]

Wenn mich nicht alles täuscht, bekommst du das Handle.

Delphi-Quellcode:

with TBitmap.Create do
begin
  Handle := vIcon;
  ...

  Free;
end;

[ghost007]

menno, ich verstehs nicht :(
habs wie folgt versucht:

Delphi-Quellcode:

var
  bitmap : TBitmap;
begin
 bitmap.Handle:= SendMessage(AHandle, WM_GETICON, ICON_BIG, 0);
 ImageList1.Add(bitmap,bitmap);
 bitmap.Free;
end;

aber es geht nicht, bekomm immer ne AC. ...
AHandle muss schon das handle eines fensters sein, oder?

MfG - Ghost007

//Edit:
oder wie kann ich mit dem code von luke, die erstellte bitmap in ein image laden bzw. in einer imagelist speichern?

MfG - Ghost007

[CCRDude]

Ein Icon-Handle an ein TBitmap zuweisen?
Ich würd erstmal TIcon nehmen ;)

[ghost007]

also,
ich verwende folgenden code um alle geöffneten programme und deren titel auszulesen.
Der code funktioniert auch gut, aber das mit dem icon auslesen bekomm ich nicht hin ... bekomm ständig ne access violation ... :(

Delphi-Quellcode:

function EnumWin(hWnd: THandle; FirstWnd: PCardinal): Boolean; stdcall;
var
  WinText: AnsiString;
  ProcId : cardinal;
  icon : Ticon;
begin
  Result := True;
  if IsWindowVisible(hwnd) then
  begin
    if (GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) <> 0 then
      hwnd:= GetWindowLong(hWnd, GWL_HWNDPARENT);
    ProcId := GetWindowThreadProcessID(hWnd, nil);
    SetLength(WinText, SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0));
    SendMessage(hWnd, WM_GETTEXT, Length(WinText) + 1, integer(WinText));
    if (length(WinText) > 0) and (FirstWnd^ <> ProcId) then
     begin
      Form1.ListBox1.Items.Add(WinText);
      icon.Handle:=SendMessage(hWnd, WM_GETICON, ICON_BIG, 0);
      Form1.ImageList1.AddIcon(icon);
      icon.Free;
     end;
   FirstWnd^ := ProcId;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstWnd : cardinal;
begin
  ListBox1.Clear;
  EnumWindows(@EnumWin, cardinal(@FirstWnd));
end;

MfG - Ghost007

P.S.Help me :wall:

[halinchen]

Hast du nicht ein

Delphi-Quellcode:

Icon := TIcon.Create

vergessen?

[edit]Ich kriegs nämlich auch nicht hin. Als Bitmap ist es 0x0 Pixel groß und als Icon kommt danach immer ein Fehler ("ungültiges Symbol")
Ich benötige das nämlich auch gerade :-D [edit]

[ghost007]

omg ich n*** ^^ stimmt, mit icon := TIcon.Create; gehts ...
jetzt sind also die icons in der imagelist.
hab grad schonmal in der onlinehilfe guggt, aber wie komm ich jetzt an die icons? und wie wandel ich se in bitmaps um?

MfG - Ghost007

[halinchen]

Icon in Bitmap umwandeln:

Delphi-Quellcode:

bmp.Assign(NIL); //löschen
bmp.height := ico.height;
bmp.width := ico.width;
bmp.Draw(0,0,ico);

--> ungetestet

Delphi-Quellcode:

bmp.Assign(ico)

geht ja leider nicht.

[ghost007]

hm,
wie mir grade auffällt, schlägt die abfrage manchmal fehlt, dann liefert die funktion, welche das handle der icons liefern soll, den wert 0, und die bitmap wird weiß ... kann des an dem ICON_BIG bzw. ICON_SMALL liegen?

MfG - Ghost007

[EDIT]
hier der erweiterte code um das letzte ermittelte icon als bitmap darzustellen

Delphi-Quellcode:

function EnumWin(hWnd: THandle; FirstWnd: PCardinal): Boolean; stdcall;
var
  WinText: AnsiString;
  ProcId : cardinal;
  icon : Ticon;
  bmp : Tbitmap;
begin
  Icon := TIcon.Create;
  bmp := TBitmap.Create;
  Result := True;
  if IsWindowVisible(hwnd) then
  begin
    if (GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) <> 0 then
      hwnd:= GetWindowLong(hWnd, GWL_HWNDPARENT);
    ProcId := GetWindowThreadProcessID(hWnd, nil);
    SetLength(WinText, SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0));
    SendMessage(hWnd, WM_GETTEXT, Length(WinText) + 1, integer(WinText));
    if (length(WinText) > 0) and (FirstWnd^ <> ProcId) then
     begin
      Form1.ListBox1.Items.Add(WinText);
      Form1.handle.Items.Add(IntToStr(hWnd));
      Form1.ListBox2.Items.Add(IntToStr(SendMessage(hWnd, WM_GETICON, ICON_BIG, 0)));
      icon.Handle:=SendMessage(hWnd, WM_GETICON, ICON_BIG, 0);
      if icon.Handle <> 0 then
       begin
        Form1.ImageList1.AddIcon(icon);
        bmp.Assign(NIL); //löschen
        bmp.height := icon.height;
        bmp.width := icon.width;
        bmp.Canvas.Draw(0,0,icon);
        Form1.Image2.Picture.Bitmap:=bmp;
       end;
      icon.Free;
     end;
   FirstWnd^ := ProcId;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstWnd : cardinal;
begin
  ListBox1.Clear;
  EnumWindows(@EnumWin, cardinal(@FirstWnd));
end;

Wie kann es nun aber sein, das manche Applicationen als iconhandle 0 zurück liefern?
Ich hab schon getestet, bei den applicationen (z.B. Winamp) ist es egal ob man ICON_BIG oder ICON_SMALL aufruft ...

[/EDIT]
[EDIT]
im anhang sieht man die ausgabe des obigen codes ... wie kann es sein, das ich als icon handle 0 bekomme ... bzw. wie komm ich dann an die icons?
[/EDIT]

[bitsetter]

Hi,

kannst ja mal versuchen ob es so

Delphi-Quellcode:

icon.Handle := SendMessage(hWnd, WM_GETICON, ICON_BIG, 0); 
if icon.Handle = 0 then
  icon.Handle := GetClassLong(hWnd, GCL_HICON);

anders ist.

[ghost007]

sehr schön, danke :)
funktioniert perfekt :)

MfG - Ghost007

[Mackhack]

Brauchst du dazu nicht ExtractIcon oder ExtractIconEx??? Du uebergibst der Funktion den Index der Icons die du haben willst und schwupps hast du alle da!

[halinchen]

Zitat:

Zitat von Mackhack

Brauchst du dazu nicht ExtractIcon oder ExtractIconEx??? Du uebergibst der Funktion den Index der Icons die du haben willst und schwupps hast du alle da!

MSDN

The ExtractIcon function retrieves a handle to an icon from the specified executable file, DLL, or icon file.

Klingt für mich, als würde es aus einer Icon-Datei ein TIcon machen. Aber das hat man ja schon.

[edit]Ich möchte mich dann auch bedanken! Klappt prima! :thumb: [/edit]

[DGL-luke]

Wenn man mehrere Icons will, die zum Beispiel in einer DLL gespeichert sind, macht das schon Sinn.

[halinchen]

Zitat:

Zitat von DGL-luke

Wenn man mehrere Icons will, die zum Beispiel in einer DLL gespeichert sind, macht das schon Sinn.

Naja, aber eine DLL ist ja auch eine Datei. Ich meinte das so, dass das Icon ja schon im Speicher ist und man es nicht aus einer Datei extrahieren muss.