Systeminformation 1.0 - Lite

[Akut-Programming]

Hi Leute!

Ich stell euch heut wieder mal einer meiner Anwendungen vor. Sie ist gestern fertig gewurden.

Anwendung: Small Soft Systeminformation 1.0 - Lite
Release: sys_smsi20032410

Beschreibung:

Mit der Systeminformation 1.0 können die eingebaute Hardware, sowie installierte Software und noch viel mehr ausgelesen werden. Prozessorauslastung wird mit Statusleiste dynamisch angezeigt.

Genauere Infos:
www.small-soft.com

Direktlink:
Small Soft Systeminformation 1.0 - Lite Setup

[Luckie]

Hm, das Setup stört mich etwas. Bedienung, nun ja, etwas verwirrend. Einfache Seitenreiter hätten es auch getan.

Aber meinst du ich kann auf Grund deines Programmes den Festplattenhersteller meiner Festplatte verklagen? Laut deines Programmes hat meine Partition C: 15734927360 KB. Da sie aber laut Hersteller insgesammt nur 60 GB groß ist, wurde ich wohl beim Kauf irgendwo besch**ßen. Daneben habe ich noch vier weitere Partitionen, die kämen zu den 15734 Terrabyte noch dazu. Aber die würden dann mit ihren paar Gigabytchen nicht so sehr ins Gewicht fallen.

Meine SysInfo

[MathiasSimmack]

• Der Prozessorname ist ein Stück zu weit nach links gerutscht, sowohl in "Allgemein/CPU" als auch in "CPU".
• Warum kann ich die Prozessorfeatures abhaken? Da bekommt man ja Angst, auf OK zu klicken ...;)
• Tippfehler: "Level2-Cache" (E anstelle von A)
• Das Setup stört mich nicht weiter, allerdings bleiben bei der Deinstallation das Desktop-Icon, der Weblink im Startmenu (und damit die komplette Gruppe) und der leere Programmordner zurück.

[Luckie]

Zitat:

Zitat von MathiasSimmack

Warum kann ich die Prozessorfeatures abhaken? Da bekommt man ja Angst, auf OK zu klicken ...;)

Ist mir gar nicht aufgefallen. :shock:

Zitat:

Das Setup stört mich nicht weiter, allerdings bleiben bei der Deinstallation das Desktop-Icon, der Weblink im Startmenu (und damit die komplette Gruppe) und der leere Programmordner zurück.

Und genau aus diesen Gründen stört mich ein Setup. Wenn so was übrigbleibt, was bleibt denn dann noch in der Registry und auf der Festplatte übrig, wo man hinterherräumen muss? :roll: Da keine DLL's registriert werden müssen oder sonstige Vorabeinstellunge gemacht werden müssen, reichte für uns Tester auch das ganze in einem Zip anzubieten.

[axelf98]

Meine Partition C:\ ist 1,86 Terrabyte groß! :shock:

[Luckie]

Zitat:

Zitat von axelf98

Meine Partition C:\ ist 1,86 Terrabyte groß! :shock:

Süß. :mrgreen: Kuck mal meine an oder habe ichmich da jetzt verrechnet? was kommt nach Giga? Doch wohl Terra oder?

Code:

15734927360 KB
15734927 MB
15734 GB
15 TB

OK hast gewonnen. :oops:

[MathiasSimmack]

Zitat:

Zitat von Luckie

Und genau aus diesen Gründen stört mich ein Setup.

Na ja, *hüstel* ... du kennst mich ja. Da ich ja selber gern Setups mache, nehm´ ich´s keinem übel, wenn er/sie auch eins macht. :)

Zitat:

[...] was bleibt denn dann noch in der Registry und auf der Festplatte übrig, [...]

In dem Fall bleibt nichts außer den genannten Dingen zurück. Aber du hast recht, wenn das Setup bzw. das Un-Setup (;)) keine gute Arbeit leistet, ist das weniger schön.

[Florian H]

zum testen finde ich eigentlich eine exe (wenn möglich) oder zip-datei am besten...

meine c:-partition hat übrigens 30TB... :gruebel:

[Alexander]

Meine ist nur 8,5TB groß :sad: :mrgreen:
@Mathias: Wie überprüfst du denn, ob neue Reg-Einträge hinzugekommen sind?

[Akut-Programming]

Hi Leudz!

Ja die Geschichte mit den Festplatten ist mir auch schon aufgefallen, bekomme nur die Werte nich in Kommazahlen. Dann würde es genauere Werte ergeben. Und nochwas, es ist meist wirklich so, das man statt ner 60GB Platte nur 57GB angezeigt bekommt. Das hat was damit zutun, das die Hersteller immer Unterschiede zwischen 1024 MB = 1GB und 1000MB= 1GB sehen. Hab z.B. auch ne 60GB drin, und bei der bekomm ich egal wo immer angezeigt, das ich nur 57GB frei hab, auch wenn ichse grad erst platt gemacht hab.

Also mit dem Abhaken der CPU Features, da hab ich nur verpeilt die Checkboxen auf enabled zu setzen. Es sei aber auch gesagt, das nichts passiert wenn ihr auf OK drückt.!!

Hättet ihr vielleicht ne Idee, wie ich in die Werte für die Plattenfröße Kommas kriege bzw. sie besser Darstellen kann?

[EDIT] Also ihr könnt ja mal die Registry überprüfen, von der Systeminformation sollte nach deinstallation echt nichts mehr drin stehn. Warum nu unbedingt die Verknüpfungen noch dableiben, wees ich och nich - lasse die laut Deinstallierroutine schon löschen. [/EDIT]

Greetz,

[Tim.exe]

Hallo,

ist ja ein nettes hübsches Tool :-D

Mir ist aufgefallen das die CPU Last 100% anzeigt, gem. einem anderem Tool ist sie aber nur ~2,5%.

Die DirectX Umgebung sagt mir ich hätte die Version 4.x, aber eigentlich habe ich 8.x...

Kannst du mir veraten wie du den BIOS Namen, Version und Datum herausfindest? Sowas könnte ich nämluch auch brauchen... :-D

[Alexander]

Zitat:

Ja die Geschichte mit den Festplatten ist mir auch schon aufgefallen, bekomme nur die Werte nich in Kommazahlen. Dann würde es genauere Werte ergeben. Und nochwas, es ist meist wirklich so, das man statt ner 60GB Platte nur 57GB angezeigt bekommt. Das hat was damit zutun, das die Hersteller immer Unterschiede zwischen 1024 MB = 1GB und 1000MB= 1GB sehen. Hab z.B. auch ne 60GB drin, und bei der bekomm ich egal wo immer angezeigt, das ich nur 57GB frei hab, auch wenn ichse grad erst platt gemacht hab.

Ist ja schön und gut, aber er zeigt ganz und gar nicht die richtigen Werte an ;-).
Bei mir zeigt für's Laufwerk C 8,5 TB, nicht GB ;-)

[Akut-Programming]

@ Tim:

Also wenn die Prozessorauslastung bei Start der Anwendung schon bei 100% anschlägt brauchste dir keene Platte machen, das es so ist. Merkwürdigerweise bleibt die Satusleiste immer mal hängen. Bin schon am basteln, wie ich das beheben kann. Versuchs vielleicht nochmal mit n Neustart der Anwendung!?

Dat mit der DirectX Version liegt daran, das ich die Angabe so im Registry eintrag von DirectX steht. Wenn du dir den Wert genau anschaust, kommt nach der 4.0 deine 8 - Dies ist die installierte DirectXversion.

Bei mir steht z.B.: 4.09.00.0902 - habe DirectX 9 installiert!!!

@ Alex:

Wie gesagt, habe ne falsche bezeichnung gewählt - KB - statt eigentlich Byte!!!

[Luckie]

Wo ist das Problem die Angabe zu formatieren? Format, heißt das Zauberwort in der Hilfe.

[axelf98]

Müsste eigentlich so stimmen:

Delphi-Quellcode:

function Formatieren(KB: Extended): String;
const  Genauigkeit = 1000;
var
 Dimension : String;
begin
 if KB >= 0 then Dimension := 'KiloByte';
 if KB > 1023 then Dimension := 'MegaByte';
 if KB > 1048575 then Dimension := 'GigaByte';
 if KB > 1073741823 then Dimension := 'TeraByte';
 if KB > 1099511627775 then Dimension := 'PetaByte';
 if KB > 1125899906842619 then Dimension := 'ExaByte';

if Dimension = 'KiloByte' then result := Floattostr(KB)+ ' ' + Dimension;
if Dimension = 'MegaByte' then result := Floattostr(round((KB / 1024) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'GigaByte' then result := Floattostr(round((KB / 1048576) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'TeraByte' then result := Floattostr(round((KB / 1073741824) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'PetaByte' then result := Floattostr(round((KB / 1099511627776) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'ExaByte' then result := Floattostr(round((KB / 1125899906842620) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
end;

[Akut-Programming]

Cool, danke Axel, :thuimb: werd ich mal einbauen und testen. So wies ausschaut isses genau dat was ich suche! :lol:

[Luckie]

Zitat:

Zitat von axelf98

Müsste eigentlich so stimmen:

Delphi-Quellcode:

function Formatieren(KB: Extended): String;
const  Genauigkeit = 1000;
var
 Dimension : String;
begin
 if KB >= 0 then Dimension := 'KiloByte';
 if KB > 1023 then Dimension := 'MegaByte';
 if KB > 1048575 then Dimension := 'GigaByte';
 if KB > 1073741823 then Dimension := 'TeraByte';
 if KB > 1099511627775 then Dimension := 'PetaByte';
 if KB > 1125899906842619 then Dimension := 'ExaByte';

if Dimension = 'KiloByte' then result := Floattostr(KB)+ ' ' + Dimension;
if Dimension = 'MegaByte' then result := Floattostr(round((KB / 1024) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'GigaByte' then result := Floattostr(round((KB / 1048576) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'TeraByte' then result := Floattostr(round((KB / 1073741824) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'PetaByte' then result := Floattostr(round((KB / 1099511627776) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
if Dimension = 'ExaByte' then result := Floattostr(round((KB / 1125899906842620) * Genauigkeit)/Genauigkeit) +' ' + Dimension;
end;

Willst du ein Preis gewinnen bei der Frage: "Wer kann noch mehr unnötige if-Bedingungen schreiben?" :gruebel:
Wozu bitte sehr der erste Block mit den if's bzw., wenn du den nutzt warum dann der zweite? Rechne doch gleich um. :roll:
Und mit Format(...) bekommst du sogar Tausendertrennzeichen hin.

[mirage228]

das könnteste doch mit ner schleife machen, z.B.

Delphi-Quellcode:

function groesse(Size: Extended): Extenden;
var
  sizes: array[0..4] of string;
  cnt: integer;
begin
  sizes[0] := 'Bytes';
  sizes[1] := 'KB';
  sizes[2] := 'MB';
  sizes[3] := 'GB';
  sizes[4] := 'TB';

  Result := Size + ' ' + Sizes[0];

  if Size >= 1024 then
  repeat
    if cnt > 4 then
    begin
      cnt := 4;
      size := size;
    end else size := size / 1024;
    inc(cnt);
    Result := FloatToStrF(Size,ffGeneral,4,2) + ' ' + sizes[cnt];
  until (size < 1024) or (cnt > 4);
end;

wenn du net format benutzen willst.

[axelf98]

Entschuldigung, ich werde dann halt nicht mehr helfen. :?
Der Code läuft aber ohne Probleme!

[Luckie]

Hallo??? "Klopf, klopf, jemand zu Hause McFly?"
1.) Warum vier Zeilen Code, wenn es auch mit mehr als doppelt so viel geht und wesentlich uneffiktiver und unverständlicher?
2.) Welche Funktion, die die Festplattenkapazität ermittelt, gibt bitte sehr selbige als Fließkommazahl zurück? :roll:

[mirage228]

Es besteht durchaus die Möglichkeit das eine Festplatte nur 56,8 GB Kapazität hat, statt 60 GB - Kommt wegen der seltsamen Umrechnungart der Festplatten hersteller.

geht auch so (Angabe in GB) - mit Format (sollte klappen)

Delphi-Quellcode:

Groesse := FormatFloat('##,##" GB"', Size / 1024 / 1024 / 1024);

[axelf98]

Wenn ihr alles immer so kurz wie möglich haben wollt, bitte:

Delphi-Quellcode:

function Formatieren(KB: Extended): String;
const  Genauigkeit = 1000;
begin
 if KB >= 0 then result := Floattostr(KB)+ ' ' + 'KiloByte';
 if KB > 1023 then result := Floattostr(round((KB / 1024) * Genauigkeit)/Genauigkeit) +' ' + 'MegaByte';
 if KB > 1048575 then result := Floattostr(round((KB / 1048576) * Genauigkeit)/Genauigkeit) +' ' + 'GigaByte';
 if KB > 1073741823 then result := Floattostr(round((KB / 1073741824) * Genauigkeit)/Genauigkeit) +' ' + 'TeraByte';
 if KB > 1099511627775 then result := Floattostr(round((KB / 1099511627776) * Genauigkeit)/Genauigkeit) +' ' + 'PetaByte';
 if KB > 1125899906842619 then result := Floattostr(round((KB / 1125899906842620) * Genauigkeit)/Genauigkeit) +' ' + 'ExaByte';
end;

[Luckie]

Zitat:

Zitat von mirage228

Es besteht durchaus die Möglichkeit das eine Festplatte nur 56,8 GB Kapazität hat, statt 60 GB

Das hat nichts mit dem Thema zu tun. Alle Funktionen die ich kenne, liefern die Kapazität in Byte und da Byte die kleinste Einheit ist, ist der Datentyp logischer weise ein Integer, alles andere wäre Blödsinn. Darum geht es. Ihr deklariert den Funktionsparameter alle mit Extended, was wie gesagt Blödsinn ist.

[axelf98]

Zitat:

Zitat von Luckie

Zitat:

Zitat von mirage228

Es besteht durchaus die Möglichkeit das eine Festplatte nur 56,8 GB Kapazität hat, statt 60 GB

Das hat nichts mit dem Thema zu tun. Alle Funktionen die ich kenne, liefern die Kapazität in Byte und da Byte die kleinste Einheit ist, ist der Datentyp logischer weise ein Integer, alles andere wäre Blödsinn. Darum geht es. Ihr deklariert den Funktionsparameter alle mit Extended, was wie gesagt Blödsinn ist.

Wenn man z.B. 3232342422 KB hat... Rechne das mal mit einem Integer durch..
Mein Rechner macht so hohe Integer-Variablen nicht mit *g*.
Oder hast du einen 256 Bit Integer :shock: ?

[mirage228]

Ein 64bit Integer (Int64) reicht meineswissen vollständig aus, nehme ich zumindest mal an!

Es gibt ja noch Comp und Real48, falls man kein Int64 hat (wie ich mit Delphi 3)

mfG
mirage228

[Luckie]

Nein, habe ich nicht. Aber hast du eine Festplatte im Terabytebereich? :roll:

Wenn es bis 1000 Gibabyte reicht, dann geht auch das:

Delphi-Quellcode:

function FormatDiskSpace(DiskSpace: Int64): string;
begin
  case DiskSpace of
    0..1023: result := Format('%d byte', [DiskSpace]);
    1024..1048576: result := Format('%2n KB', [DiskSpace / 1024]);
    1048577..1073741824: result := Format('%2n MB', [DiskSpace / 1024 / 1024]);
  else
    result := Format('%2n GB', [DiskSpace / 1024 / 1024 / 1024]);
  end;
end;

@axel: Deine 3309918640128 (ich habe noch mal 1024 genommen, um Byte zubekommen) macht meiner Version anstandslos mit. :wink:

Zitat:

---------------------------
Project1
---------------------------
3.082,60 GB
---------------------------
OK
---------------------------

[axelf98]

Schön... Aber was ist an Extended so schlimm?
Außerdem könnte man ja auch mal größere Datenmengen anzeigen lassen, in einem Netzwerk z.B.

[mirage228]

Ich glaube, dass Extended langsamer als Integer ist...

bei kleineren Proggis dürfte das aber keine Rolle spielen

mfG
mirage228

[Akut-Programming]

Zitat:

Zitat von Luckie

Nein, habe ich nicht. Aber hast du eine Festplatte im Terabytebereich? :roll:

Wenn es bis 1000 Gibabyte reicht, dann geht auch das:

Delphi-Quellcode:

function FormatDiskSpace(DiskSpace: Int64): string;
begin
  case DiskSpace of
    0..1023: result := Format('%d byte', [DiskSpace]);
    1024..1048576: result := Format('%2n KB', [DiskSpace / 1024]);
    1048577..1073741824: result := Format('%2n MB', [DiskSpace / 1024 / 1024]);
  else
    result := Format('%2n GB', [DiskSpace / 1024 / 1024 / 1024]);
  end;
end;

Und genau so reichts auch :zwinker: - für GB - habe es jetzt ins Prog eingebaut, es funzt prima!!! Danke Luckie :thuimb:

:dp:

[Akut-Programming]

Zitat:

Zitat von MathiasSimmack

• Der Prozessorname ist ein Stück zu weit nach links gerutscht, sowohl in "Allgemein/CPU" als auch in "CPU".

Dat is merkwürdig, bei mir wird er an gewünschter Position angezeigt!? :gruebel: Hat noch jemand dat Problem? Könnte jemand dann vielleicht ma n Screenshot machen, damit ichs mir angucken kann!?

[Akut-Programming]

So, hatte jetzt die Zeit gefunden die neue Version hochzuladen :zwinker: !!

Anwendung: Small Soft Systeminformation 1.1 - Lite
Release: sys_smsi20032710

Direktlink:
Small Soft Systeminformation 1.1 - Lite Setup

Genauere Infos:
www.small-soft.com

[mirage228]

Moin,

hat alles prima geklappt, bis auf das ich eine Dauer-CPU-Last von 99% haben soll :shocked: - schon etwas seltsam

mfG
mirage228

[Akut-Programming]

Zitat:

Zitat von mirage228

...bis auf das ich eine Dauer-CPU-Last von 99% haben soll :shocked: - schon etwas seltsam

Wie gesgat, warum die Anzeige dann bei Start der Anwendung ab und zu bei 90 -100% stehn belibt weiß ich auch noch nicht genau. Werd mir da was einfallen lassen.. :zwinker:

Greetz,

P.s. Wie ist eigentlich so der Gesamteindruck des Progs???

[himitsu]

War hier noch keinem Aufgefallen, das die Festplattenhersteller immer mit 1000 und nicht mit 1024 rechnen.
(1.000.000.000 = 1 GB)

-Die Lock-Tasten (Num, Scroll & Cap) und der freie Plattenspeicher könnten auch mal ein automatisches refrech vertragen.
-Der Prozessorname ist immer noch verschoben. (schau mal ob die Schrift im Label nicht zentriert ist, das währe 'ne Erklärung)
-Nett währe es auch, wenn man sich die Daten der anderen Laufwerke ansehen könnte. (nicht immer nur C)
-Die MAC-Adresse sieht auch komisch aus (siehe Bild)
-In der Programm-Info kommte es besser, wenn sich ein Hint ("eMail an ..." oder so) bei deinem Mail-Link einblenden würde. Man weis ja nicht was beim anklicken passiert.

Ansonsten ist es schon mal ein nettes Progi.

[himitsu]

Noch ein kleiner Hinweis zu eurer Website.

Eure Seite kann sich schon sehen lassen.

Aber nicht jeder arbeitet mit 'nem fetten Monitor.
Mein kleine TFT schaft nur 1024x768, und da ist die Steuerleiste (links) etwas unhandlich.
Ein "Normal-User" findet wahrscheinlich die unteren Links nicht. eine Scrollmöglichkeit im Linkbereich währe da ganz nett.
Und wenn man es doch schafft runter zu scrollen (z.B. mit TAB), sieht sie Seite etwas zerhackt aus.

[Akut-Programming]

Moin Himitsu!! Danke für deine Anmerkungen!! Werd mir deine Voschläge zu Herzen nehmen und sie - soweit meiner Seits möglich - für die nächste Version mit einbauen!! Aber dat mit der MacAdresse is schon komisch, auf den von mir getesteten Systemen funzte es alles Prima.. :wall:

Zur Webseite ... dazu hab ich auch was geschrieben, wenn du den Link auf der Startseite in der Liste "Aktuelles" -> "Small Soft geht online" öffnest, kriegst du Infos, was noch behoben werden muss usw.!!
Wir sind schon dabei n neues Design auszutüfteln - Da wir die Seite in ner Auflösung von 1280 entwickelt haben, kommts da nun bei Leuten mit kleineren Auflösungen zu Probs! Entweder gibts n komplett neues Design oder dat wat wir momentan verwenden wird angepasst. Wie schauts eigentlich mit den Buttons aus, gibts da bei jeden den RollOver Effekt??

[himitsu]

Soweit ich das gesehn hab', gibt's den RollOver-Effekt über all.

[MathiasSimmack]

Zitat:

Zitat von Akut-Programming

Zitat:

Zitat von MathiasSimmack

• Der Prozessorname ist ein Stück zu weit nach links gerutscht, sowohl in "Allgemein/CPU" als auch in "CPU".

Könnte jemand dann vielleicht ma n Screenshot machen, damit ichs mir angucken kann!?

Klar, kann ich.

[Akut-Programming]

Komisch, das er bei dir im Modul "Allgemein" nich angezeigt wird - wegen dem verschobenen muss ich mal gucken. Hier mal n Pic wies bei mir ausschaut..

[mirage228]

Hi Akut!

Das mit dem Verschobenen Label könnte daran liegen, dass der Prozessorstring auch verschoben in der Registry gespeichert ist. s.Anhang!

mfG
mirage228