SystemInfo 1.6.5

[scrat1979]

Zitat:

Zitat von RWarnecke

Zitat:

Zitat von fLaSh11

-> Wie wäre es bei den Schriftarten mit einer Vorschau der selektierten Schrift?

Habe ich auch schon überlegt, ich weiß nur noch nicht, wie ich es realisiere. Habe ich aber in meine ToDo-Liste mit aufgenommen.

1.) Entweder die ListBox direkt mit den Schriftarten füllen (s. Google "Listbox Schriftarten" o.ä.)
2.) oder einfacher: Ein Label mit Text und bei Klick auf Schriftartname den Font mit "label1.font.name := ..." zuweisen

Zitat:

Zitat von RWarnecke

Ok, das DFÜ-Netzwerk bei einer Einwahl ins Internet, wird ja unter den Netzwerkdaten angezeigt. Das einzigste was ich machen könnte, wäre eine Abfrage, ob der Rechner über einen Router oder ein DFÜ-Netzwerk ins Internet geht und dann die Daten vom Router mit in die Netzwerkdaten reinschreiben. Hattest Du Dir das vielleicht so gedacht ?

Dachte eher mit den Indys die Seite "checkip.dyndns.com" holen (text := idHTTP.Get('checkip.dyndns.com')) und die IP auslesen. Das geht sehr einfach, da sich der HTML-Code dann in einem String befindet und per Copy(text, x, y) die IP herausgeschnitten werden kann. Es ist dann auch egal wie sich der Rechner ins Internet einwählt.


SCRaT

[NicoDE]

Zitat:

Zitat von OregonGhost

Ich weiß nicht, ob Delphi eine kulturbezogene Darstellung ermöglicht.

Jedenfalls nicht komplett. Ich überlasse es in meinen Tools einer API-Funktion die Zahl benutzergerecht zu formatieren:

Delphi-Quellcode:

function MyFormatUIntA(const ANumber: AnsiString): AnsiString;
var
  NumberFormat: TNumberFmtA;
  GroupingString: AnsiString;
  GroupingChar: AnsiChar;
  Index: Integer;
  ThousandSep: AnsiString;
begin
  // No fractional digits
  NumberFormat.NumDigits := 0;
  // No leading zeroes in decimal fields
  NumberFormat.LeadingZero := 0;
  // LOCALE_SGROUPING to Grouping (e.g. '3;2;0' = 32, '3;1' = 310)
  NumberFormat.Grouping := 0;
  SetLength(GroupingString, 40);
  SetLength(GroupingString, GetLocaleInfoA(LOCALE_USER_DEFAULT,
    LOCALE_SGROUPING, PAnsiChar(GroupingString), Length(GroupingString)) - 1);
  for Index := 1 to Length(GroupingString) do
  begin
    GroupingChar := GroupingString[Index];
    if Odd(Index) then
    begin
      case GroupingChar of
        '0':
          if Index <> Length(GroupingString) then
          begin
            NumberFormat.Grouping := 0;
            Break;
          end;
        '1'..'9':
          NumberFormat.Grouping := NumberFormat.Grouping * 10 +
            Ord(GroupingChar) - Ord('0');
      else
        NumberFormat.Grouping := 0;
        Break;
      end;
    end
    else if GroupingChar <> ';' then
    begin
      NumberFormat.Grouping := 0;
      Break;
    end;
  end;
  if (NumberFormat.Grouping <> 0 ) and
    (GroupingString[Length(GroupingString)] <> '0') then
    NumberFormat.Grouping := NumberFormat.Grouping * 10;
  // No decimal separator
  NumberFormat.lpDecimalSep := '';
  // Thousand separator string
  SetLength(ThousandSep, 40);
  SetLength(ThousandSep, GetLocaleInfoA(LOCALE_USER_DEFAULT, LOCALE_STHOUSAND,
    PAnsiChar(ThousandSep), Length(ThousandSep)) - 1);
  NumberFormat.lpThousandSep := PAnsiChar(ThousandSep);
  // Hardcoded negative number mode (-1.1)
  NumberFormat.NegativeOrder := 1;
  // Finally format the number
  SetLength(Result, 40);
  SetLength(Result, GetNumberFormatA(LOCALE_USER_DEFAULT, 0, PAnsiChar(ANumber),
    Addr(NumberFormat), PAnsiChar(Result), Length(Result)) - 1);
  if Result = '' then
    Result := ANumber;
end;

[RWarnecke]

Zitat:

Zitat von scrat1979

1.) Entweder die ListBox direkt mit den Schriftarten füllen (s. Google "Listbox Schriftarten" o.ä.)
2.) oder einfacher: Ein Label mit Text und bei Klick auf Schriftartname den Font mit "label1.font.name := ..." zuweisen

Danke für den Tipp. Aber ich finde das ein wenig Prophan oder Profan. Ich hatte da eher an ein extra Fenster gedacht, so wie man das von der Codevervollständigung kennt von Delphi. Ich bin mir aber da noch nicht so sicher.

Zitat:

Zitat von scrat1979

Dachte eher mit den Indys die Seite "checkip.dyndns.com" holen (text := idHTTP.Get('checkip.dyndns.com')) und die IP auslesen. Das geht sehr einfach, da sich der HTML-Code dann in einem String befindet und per Copy(text, x, y) die IP herausgeschnitten werden kann. Es ist dann auch egal wie sich der Rechner ins Internet einwählt.

Das finde ich ein bisschen unprofessional. Ich möchte dem User schon die Ansicht geben, ob er über einen Router rausgeht oder über ein DFÜ-Netzwerk.

Edit : Desweiteren möchte ich auch so den Virenscannern aus dem Weg gehen, welche dann eventuell mein Programm als Trojaner oder sonstiges erkennen.

[RWarnecke]

Hallo zusammen,

so nach mehr als einem Monat, habe ich eine neue Version vom SystemInfo hochgeladen. Es gibt einige Verbesserungen, einiges Neues und auch Bugs wurden behoben.

ChangeLog :
Version 1.2.0 [12.08.2007]:
[+] Die Liste der Dienste aktualisieren und die Anzeige im Titel geändert
[+] Die Liste der Dienste ausdrucken
[+] Die Liste der Drucker in einem Abstand von 10 Sekunden aktualisieren
[+] Eine Liste der installierten Drucker anzeigen
[+] Einen Reiter mit Informationen über die Internetverbindung erstellt
[+] Selektierte Schriftart in einer Vorschau anzeigen lassen
[+] Version vom Windows Media Player unter Software anzeigen[*] Anzeige der Festplattengröße nicht in Bytes sondern in einer passenden Größe[*] Anzeige der Gruppenzugehörigkeit geändert[*] Aufbau des Reiters "System" geändert und mehr Informationen werden angezeigt.[*] Bei der Anzeige "Registriert für" den Schrägstrich weglassen, wenn keine Firma eingetragen ist.[*] Beim Trace die IP-Adresse auflösen in den DNS-Namen[*] DHCP-Server nur anzeigen, wenn DHCP aktiviert ist[*] Die Informationen zu den physikalischen Laufwerken erweitert[*] Die Schriftgröße und Schriftart in dem Memo von den Laufwerksdaten geändert[*] Icons der Anwendung ausgetauscht und erneuert[*] Keine Sonderzeichen im Eingabefeld Hostname zulassen[*] Struktur des Reports neu erstellt
[-] Auslesen des physischen Arbeitsspeichers korrigiert, wenn größer 2GB
[-] Die Berechnung der TEMP-Verzeichnisse korrigiert
[-] Falsche Versionsanzeige, bei Firefox und Internet Explorer korrigiert

Den Download findet Ihr wie immer im ersten Beitrag.

[dominikkv]

hi
hier mein feedback:


- Beim starten kommt meldung:

Zitat:

---------------------------
SystemInfo
---------------------------
Fehler beim Holen der Daten für 'EnableAutodial'
---------------------------
OK
---------------------------

- Nach klick auf OK offnet sich das haptfenster, splashscreen bleibt aber
- Ich hab Win Vista, angeblich installiert am 01.01.1970
- Unter "Schlüsselnummer:" steht nÜx
- Graka Treiberversion: unbekannt
- Unter dem Reiter "Internet" sind alle Labels noch mit "Label48" oder "Label48a" beschriftet

[RWarnecke]

Zitat:

Zitat von dominikkv

- Beim starten kommt meldung:

Zitat:

---------------------------
SystemInfo
---------------------------
Fehler beim Holen der Daten für 'EnableAutodial'
---------------------------
OK
---------------------------

Welche Version von Windows Vista hast Du ? Das Programm ist unter Vista nur eingeschränkt nutzbar und es ist nicht 64Bit fähig.

[fLaSh11]

Hab die neuste Version. Mir sind zwei Fehler aufgefallen.

1) Der SplashScreen geht nich weg, bis man das Programm wieder beendet. Man sieht ja, wo und wie er stehen bleibt.
2) Die Bildwiederholfrequenz wird falsch angezeigt.
3) Kommt noch ein Fehler wegen einer fehlenden Firefoxdatei:
------------------------
Systeminfo
------------------------
Datei %Appdata%\Mozilla\FirefoxProfiles\{...}\prefs.js kann nciht geöffnet werden. Das System kann den angegebenen Pfad nicht finden.
------------------------
[OK]
------------------------

P.S.: Habe Windows XP Professional

//Edit: Ich finde es auch verwirrend, das die unter der Rubrik "Speicher" die Arbeitsspeicher je senkrecht und die Pagefile waagrecht angeordnet ist... Hat mich anfangs total verwirrt :stupid:

[dominikkv]

Zitat:

Zitat von RWarnecke

Zitat:

Zitat von dominikkv

- Beim starten kommt meldung:

Zitat:

---------------------------
SystemInfo
---------------------------
Fehler beim Holen der Daten für 'EnableAutodial'
---------------------------
OK
---------------------------

Welche Version von Windows Vista hast Du ? Das Programm ist unter Vista nur eingeschränkt nutzbar und es ist nicht 64Bit fähig.

Windows Vista Ultimate 64

[RWarnecke]

Zitat:

Zitat von fLaSh11

1) Der SplashScreen geht nich weg, bis man das Programm wieder beendet. Man sieht ja, wo und wie er stehen bleibt.

Diesen Fehler kann ich im Moment nicht nachvollziehen. Ich glaube aber es liegt an dem Fehler mit dem Firefox.

Zitat:

Zitat von fLaSh11

2) Die Bildwiederholfrequenz wird falsch angezeigt.

Muss ich nachprüfen, da ich selber nur Monitore habe, die mit 60Hz arbeiten.

Zitat:

Zitat von fLaSh11

//Edit: Ich finde es auch verwirrend, das die unter der Rubrik "Speicher" die Arbeitsspeicher je senkrecht und die Pagefile waagrecht angeordnet ist... Hat mich anfangs total verwirrt :stupid:

Da hast Du Recht, werde ich in der nächsten Version korrigiert haben, so dass alle waagerecht stehen.

[fLaSh11]

Aber das Hauptfenster sieht dann bei mir dann genauso aus, wie bei dominikkv

Zitat:

Zitat von dominikkv

- Unter dem Reiter "Internet" sind alle Labels noch mit "Label48" oder "Label48a" beschriftet

Und er berichtet nichts von dem Fifofehler...