ETS - Der ExeTimeSaver #30

[Regan]

ETS - Der ExeTimeSaver

ETS ist ein Programm, mit dem man die Laufzeit von vorher eingestellten Programmen dokumentieren kann. Das kann zum Beispiel bei Spielen interessant sein. Auch wird bei 98% aller Programmen der Speicherbedarf angegeben. Das Programm dokumentiert des Weiteren seine eigene Laufzeit und man kann den vorhandenen und freien RAM einsehen. Daneben wird der maximale und aktuelle Speicherverbrauch einer Anwendung angegeben. Dieser wird protokolliert und kann auf Wunsch für die letzten 12 Stunden Laufzeit eingesehen werden.

Das Programm wird ohne Installer geliefert. Es werden im Anwendungsdatenordner Daten abgelegt. Es wird nur eine Datei mitgeliefert. Diese befindet sich direkt in dem Archiv (also ohne Unterordner).

Download: http://regan.bplaced.net/drupal/site...les/ets_30.zip ~413 KB
Download: http://regan.bplaced.net/drupal/site...les/ets_30.rar ~334 KB
Seite: http://regan.bplaced.net/drupal/programme/ets

Screenshot:
http://regan.bplaced.net/drupal/site.../ets_promo.png

Zitat:

Zitat von Changelog

Version #30:
[+] Laufende Programme können hinzugefügt werden
[+] Maximale Auslastung
[+] Speicherauslastung der letzten 24 h wird für jedes Programm minutengenau aufgezeichnet[*] Performance deutlich verbessert[*] RAM-Anzeige modifiziert[*] Statistik modifiziert[*] Symbolik konsistenter gemacht.

Version #29:[*] "Inaktiv" wird bei nicht laufenden Programmen angezeigt[*] Nicht existierende Programme werden nicht entfernt.[*] RAM- Auslastung korrigiert (2 GB Grenze geknackt)
[-] Division durch Null Error

Version #28:[*] Buttons werden deaktiviert, falls nicht auswählbar[*] Fehler in der Darstellung der Statistik behoben[*] Statistikhinweise überarbeitet

Version #27:
[i] Erste Version

Wünsche/Anregungen/Kritik erwünscht.

MfG
Regan

[himitsu]

Zitat:

Auch wird bei 98% aller Programmen der Speicherbedarf angegeben

dein Screenshot sieht mehr nach 43% aus :angel2:

[Frankfurtoder]

1. Wenn ich auf den "Nach unten" Button klicke ohne einen Eintrag ausgewählt zu haben, bekomme ich eine Zugriffsverletzung (dabei war 1 eintrag in der Liste, wenn kein Eintrag in der Liste ist, dann keine Fehlermeldung).
2. Bei der Statistik steht "Bitte wähle einen Monat", man muss aber erst das Jahr, dann den Monat auswählen.
3. Wenn ich auf das Minus Zeichen gehe und kein Eintrag ist ausgewählt, fragt das Programm trotzdem ob der Eintrag entfernt werden soll. Da kein Eintrag ausgewählt ist passiert nichts. Kann man noch abfragen.

Das ist mir beim ersten einblick aufgefallen.

grüße

[sirius]

@himi: die aufgeführten Programm müssen aktuell nicht laufen (0k). Es ist eine Liste der Programm, die du überwachst.
Aber ein Programm von mir hat keinen Speicherverbrauch.

Fehler:

1. Bei der Statistik bekomme ich eine Division durch null (nach Auswahl des Monats)
2. Nach dem Button "Einstellungen" kommt ein Fenster namens "Optionen", wenn ich das zu allererst öffne und dann wieder schließe komt die Fehlermeldung, dass der eine Eintrag doch bitte größer 24 sein soll. Die 0, die dort steht, stammt aber nicht von mir.
3. Mein RAM wird mit 2GB angegeben, ich besitze 3GB.

[Regan]

Zitat:

Zitat von sirius

@himi: die aufgeführten Programm müssen aktuell nicht laufen (0k). Es ist eine Liste der Programm, die du überwachst.
Aber ein Programm von mir hat keinen Speicherverbrauch.

Vollkommen richtig.

Zitat:

Zitat von sirius

Fehler:

1. Bei der Statistik bekomme ich eine Division durch null (nach Auswahl des Monats)
2. Nach dem Button "Einstellungen" kommt ein Fenster namens "Optionen", wenn ich das zu allererst öffne und dann wieder schließe komt die Fehlermeldung, dass der eine Eintrag doch bitte größer 24 sein soll. Die 0, die dort steht, stammt aber nicht von mir.
3. Mein RAM wird mit 2GB angegeben, ich besitze 3GB.

2. habe ich gefixt. 1. hoffentlich auch.
Zu 3.: Ich kann dir nicht sagen, warum das nicht funktioniert. Ich habe den Code von hier genommen. Der Code hier im Forum macht bei mir nicht das, was er soll. Vielleicht hast du ja auch nur 2GB angesteckt :wink: .

Zitat:

Zitat von Frankfurtoder

1. Wenn ich auf den "Nach unten" Button klicke ohne einen Eintrag ausgewählt zu haben, bekomme ich eine Zugriffsverletzung (dabei war 1 eintrag in der Liste, wenn kein Eintrag in der Liste ist, dann keine Fehlermeldung).
2. Bei der Statistik steht "Bitte wähle einen Monat", man muss aber erst das Jahr, dann den Monat auswählen.
3. Wenn ich auf das Minus Zeichen gehe und kein Eintrag ist ausgewählt, fragt das Programm trotzdem ob der Eintrag entfernt werden soll. Da kein Eintrag ausgewählt ist passiert nichts. Kann man noch abfragen.

Alles behoben.

Version #28 veröffentlicht. Alles weitere im ersten Post.

[himitsu]

Dein Programm wird nur als 2GB-Version erstellt ... du mußt da nachträglich was patchen (in neuen Delphiversionen geht das "glaub ich" auch direkt im QuellCode, mit {$SetPEFlags ...} ) ... ich weiß zwar grad nicht was, aber such mal nach "3GB" bzw. "PE-Flags" ... ansonsten wird in deinem Programm, bei diesen Funktionen, alles auf 2 GB (Integergrenzen) runtergerundet.

Zitat:

Zitat von Regan

Vollkommen richtig.

dann würde mir da aber eine maximale/durchschnittliche Angabe des Verbrauches besser gefallen, denn den aktuellen wert liefert mir auch der Taskmanager.

[sirius]

Gegen das 2GB Problem von GlobalMemorystatus, gibt es auch noch GlobalMemoryStatusEx:

Delphi-Quellcode:

type DWORDLONG=int64; //uint64 passt besser zu DWORDLONG
                      //bringt aber unter Delphi 7 falsche Werte
type TMemoryStatusEx=packed record
        dwLength: DWORD;
        dwMemoryLoad: DWORD;
        ullTotalPhys: DWORDLONG;
        ullAvailPhys: DWORDLONG;
        ullTotalPageFile: DWORDLONG;
        ullAvailPageFile: DWORDLONG;
        ullTotalVirtual: DWORDLONG;
        ullAvailVirtual: DWORDLONG;
        ullAvailExtendedVirtual: DWORDLONG;
     end;


function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx):bool; stdcall;
   external 'kernel32.dll' name 'GlobalMemoryStatusEx';

procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatusEx;
begin
  mem.dwLength:=sizeof(mem);
  GlobalMemoryStatusEx(mem);
  showmessage(inttostr(memEx.ullTotalPhys)); // -> 3211505664
end;

Ansonsten besteht noch der Fehler mit der Division durch 0 und mein Programm benötigt keinen Speicher (auch wenn es läuft).

[Regan]

Zitat:

Zitat von himitsu

Dein Programm wird nur als 2GB-Version erstellt ... du mußt da nachträglich was patchen (in neuen Delphiversionen geht das "glaub ich" auch direkt im QuellCode, mit {$SetPEFlags ...} ) ... ich weiß zwar grad nicht was, aber such mal nach "3GB" bzw. "PE-Flags" ... ansonsten wird in deinem Programm, bei diesen Funktionen, alles auf 2 GB (Integergrenzen) runtergerundet.

OK, ich habe da hier was gefunden. Ich schaue mir das mal mit an. So richtig testen kann ich das aber nicht, habe ja nur 256 MB :wink: .

Zitat:

Zitat von himitsu

Zitat:

Zitat von Regan

Vollkommen richtig.

dann würde mir da aber eine maximale/durchschnittliche Angabe des Verbrauches besser gefallen, denn den aktuellen wert liefert mir auch der Taskmanager.

Das stimmt, ich habe es mir mit aufgeschrieben und werde das auf jeden Fall umsetzten. Kommt vielleicht sogar schon in der nächsten Version, mal schauen.

Zitat:

Zitat von sirius

Gegen das 2GB Problem von GlobalMemorystatus, gibt es auch noch GlobalMemoryStatusEx:

Delphi-Quellcode:

type DWORDLONG=int64; //uint64 passt besser zu DWORDLONG
                      //bringt aber unter Delphi 7 falsche Werte
type TMemoryStatusEx=packed record
        dwLength: DWORD;
        dwMemoryLoad: DWORD;
        ullTotalPhys: DWORDLONG;
        ullAvailPhys: DWORDLONG;
        ullTotalPageFile: DWORDLONG;
        ullAvailPageFile: DWORDLONG;
        ullTotalVirtual: DWORDLONG;
        ullAvailVirtual: DWORDLONG;
        ullAvailExtendedVirtual: DWORDLONG;
     end;


procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall;
   external 'kernel32.dll' name 'GlobalMemoryStatusEx';

procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatusEx;
begin
  mem.dwLength:=sizeof(mem);
  GlobalMemoryStatusEx(mem);
  showmessage(inttostr(memEx.ullTotalPhys)); // -> 3211505664
end;

Zitat:

Zitat von sirius

Ansonsten besteht noch der Fehler mit der Division durch 0 und mein Programm benötigt keinen Speicher (auch wenn es läuft).

Mist, das dachte ich mir. Das Problem dabei ist: Ich kann den Div durch 0-Error nicht reproduzieren. Deshalb ist es auch so schwer den Fehler zu finden.
Zu dem Speicher: Es ist seltsam, aber bei manchen Programmen wird wirklich kein Speicherverbrauch angezeigt (zumindest bei der Funktion, die ich nutze). Deshalb habe ich auch geschrieben, dass es 98% aller Programme sind :wink: .

[Larsi]

Wie wärs denn wenn du eine Funktion einbaust die sagt wie lange die Programme falls Sie denn laufen schon geöffnet sind. Der Taskmanager kann das.

[Zacherl]

Zitat:

Zitat von Larsi

Wie wärs denn wenn du eine Funktion einbaust die sagt wie lange die Programme falls Sie denn laufen schon geöffnet sind. Der Taskmanager kann das.

Dann benutzt man doch am besten auch den Taskmanager dazu :P Warum das Rad neu erfinden ..