Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Anzahl GDI-Objekte (https://www.delphipraxis.net/118316-anzahl-gdi-objekte.html)

DerAndereMicha 5. Aug 2008 08:49


Anzahl GDI-Objekte
 
Hallo Zusammen,

kennt einer von Euch eine Möglichkeit:

a, die Anzahl der von dem eigenen Programm verwendeten GDI-Objekte
b, die Gesamtanzahl der verwendeten GDI-Objekte in der aktuellen WINDOWS-Session

mit Hilfe von Delphi auszulesen; quasi so wie der Taskmanager oder GDIView. Evtl. gibt es ja irgendeine Funktion. Ich hab schon mit Google gesucht und auch im Forum und bin nur auf ne uralte Funktion für WIN98 gestoßen, die mir aber leider nicht weiterhilft.

Ich würde diese Informationen gerne mit in die Log-Datei meines Programmes aufnehmen, falls in dieser Hinsicht mal die Ressourcen ausgehen.

Gruß
Micha

Gruber_Hans_12345 5. Aug 2008 09:02

Re: Anzahl GDI-Objekte
 
Probiers mal mit alle Prozesse durchgehen, Prozess öffnen und dann mit
Delphi-Quellcode:
GetGuiResources(hProc, GR_GDIOBJECTS);

DerAndereMicha 5. Aug 2008 10:50

Re: Anzahl GDI-Objekte
 
Hallo Hans,

hat leider nicht funktioniert. Da kommt immer 0 raus.

Was muß denn bei hProc rein? Ich bin mit dem Process32First - Process32Next - Prinzip alle Prozesse durchgegangen und habe die TProcessEntry32.thProcessID verwendet.

Gruß
Micha

Luckie 5. Aug 2008 11:01

Re: Anzahl GDI-Objekte
 
hProc hört sich nach einem Prozess Handle an und nicht nach einer ProzessID. Ein Prozess Handle bekommst du mit MSDN-Library durchsuchenOpenProcess. Was sagt denn GetLastError?

DerAndereMicha 5. Aug 2008 11:06

Re: Anzahl GDI-Objekte
 
GetLastError sagt mir "Falscher Parameter".

Ich hab's auch mal testweise mit dem Handle von Application probiert - da selbe Ergebnis ...

Gruß
Micha

Luckie 5. Aug 2008 11:11

Re: Anzahl GDI-Objekte
 
Da haben wir es doch schon. Und ein Fensterhandle ist warscheinlich ganz falsch. Aber ich habe dir doch schon gesagt, was du mal ausprobieren sollst.

DerAndereMicha 5. Aug 2008 11:58

Re: Anzahl GDI-Objekte
 
Vielen Dank. Mit OpenProcess funktionierts einwandfrei.

Gruß
Micha


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:52 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