SystemUtilities V 1.0

[Piro]

Moin,

dieses Programm hat folgende Features:

• Anzeige von SystemInformationen

• Systemprogramme, die man nur durch mehrere Klicks bekommt

• Netzwerktools (NetSend, IPCONFIG /ALL, PING, FTP, TELNET, Freigaben, Aktive Verbindungen, ...)

• ASCII Tabelle + Zahlensystem

Getestet wurde es auf Windows 2000 Professional und zum Teil auf WindowsXP.

Würde mich über Feedbacks aber auch Kritik/Verbesserungsvorschläge freuen.

Sven

[Luckie]

Und woher soll er wissen, wo du die msconfig hinkopiert hast? Alle Festpaltten und Ordner zu durchsuchen ist auch nicht das ware.

[Leuselator]

Nett.
Vorschlag: Umrechnungen: fang das Enter im OnDown an und berechne dann von dem Wert des sendenden Edits ausgehend - so spart man sich das nervige leeren und neueingeben der Werte:

Delphi-Quellcode:

procedure TDeinTool.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = 13 then begin
    if      Sender = EditDezimal  then AufrufUmrechnungDezimal
    else if Sender = EditRoemisch then AufrufUmrechnungRoemisch
    ... // usw.usf.
  end;
end;

Gruß

[Piro]

@ Christian Reber:
- das Tool minimiert sich nicht automatisch, wenn du es startet bzw. es ist nicht vorgesehen
- kann das sein, dass du den Nachrichtendienst ausgeschaltet hast, denn damit ist der Senden Button deaktiviert

Die anderen Sachen schaue ich mir an und werde darüber nachdenken.


@Leuselator:

Bei mir funzt das nicht. Folgenden Code habe ich benutzt.

Delphi-Quellcode:

procedure Tfrm_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 13 then
 begin
   if Sender = edt_dezimal then MessageDlg('Dezimal', mtInformation, [mbOK], 0)
   else
     if Sender = edt_roemisch then MessageDlg('Römisch', mtInformation, [mbOK], 0)
     else
       if Sender = edt_hex then MessageDlg('Hex', mtInformation, [mbOK], 0)
       else
         if Sender = edt_binaer then MessageDlg('Binär', mtInformation, [mbOK], 0);
 end;
end;

Die Editfelder sind TLableEdit Komponenten. Wenn ich dann in dem Tab bin, eine Zahl in edt_dezimal eingabe und dann ENTER drücke passiert nicht. Warum?

[Leuselator]

Du mußt das im OnKeyDown der Edits machen und im Form die Eigenschaft "KeyPreview" auf True setzen
Gruß

[Piro]

Habe ich jetzt auch schon mitbekommen, dass ich das Ereignis ins Editfeld setzen muss.

Dann ist aber mein Berechnen Button überflüßig. Gibt es eine Variante, in der ich beim Click des Berechnen Button, dass Editfeld auslesen kann, in dem der Cursor steht? Denn so könnte man es einfacher gestalten und würde nur ein Procedure benötigen.

[Leuselator]

leider nicht, da der Focus dann auf dem Button, nicht auf dem Edit liegt

[BTeam]

Dein Tool hat meine CPU nicht erkannt...das Feld dahinter ist Leer.

[Piro]

Ja das ist schon öfters vorgekommen, da ich hier nach einem Registry Eintrag schaue. Such mal in der nach ProcessName.

Wenn du da keinen Eintrag hast, bleibt das Feld halt leer.

Ich habe keine andere Möglichkeit gefunden, den ProzessorName auszulesen.

[Darty]

Zitat von daywalker299:

Ich habe keine andere Möglichkeit gefunden, den ProzessorName auszulesen.

Ich glaube Luckie hat da mal was gemacht. Such mal hier im Forum oder auf seiner Seite.

[Piro]

Lukie liest es auch aus der Registry aus. Bei einigen PCs steht es nicht drin, warum auch immer. Für eine elegantere Lösung wäre ich dankbar.