SysInfo

[CalganX]

Hi,
JUHU! Mein erstes nonVCL-Programm.
Dieses Programm spuckt ein paar Informationen zu den Usern und zum Rechner aus. Ggf. erweitere ich es noch.
Ihr braucht allerdings Windows eNTe, 2kay oder X(perience)P(roblems). Für den Source braucht ihr noch die Win32-Header-Übersetzungen der JEDIs.
So, ruhig Kritik äußern. Ist halt mein 1. nonVCL-Programm.

Chris

PS: Nur 200KB. *hähä*

[Christian Seehase]

Moin Chris,

wo brauchst Du denn StrPas?

Zitat von Delphi Hilfe zu StrPas:

StrPas ist nur aus Gründen der Abwärtskompatibilität vorhanden. Um einen nullterminierten String in einen Pascal-String zu konvertieren, verwenden Sie eine Typumwandlung oder eine Zuweisung.

[CalganX]

Achso... Na dann. Ich dachte man könnte einen PChar nicht in einen String Typecasten... Na gut.

Chris

[CalganX]

Oiski, Poiski! Jetzt ist die Exe nur noch 20,5kb (unterboten, Matthias!) und das ZIP-Archiv nur noch 17,5kb.
Also, nochmal im Anhang. Allerdings gibt es im Moment ein Problem mit der Funktion "DiskInDrive" aus der Datei PCUtils.pas. Wenn sich dem einer annehmen könnte, wäre ich euch dankbar.

Chris

[CalganX]

Nun ist aber Schluss für heute und damit das letzte Update. Ich habe jetzt die Funktion "DiskInDrive" nach Christians Beitrag im entsprechenden Thread geändert.

So, vielleicht will sich der eine oder andere das mal ansehen und vllt. daraus lernen

Chris

[CalganX]

Auch wenn das Programm niemanden interessiert: ich habe noch ein paar Sachen reingebaut.
Des Weiteren habe ich vor die Einträge noch ein paar Bildchen gesetzt.
Die Größe der EXE-Datei beträgt nun 35,5Kb (mit eingeschalteter Bildchen). Wer die Bilder nicht haben will, findet am Anfang des SourceCodes einen Compilerschalter.

Wer hat noch Ideen, was ich noch an Infos reinbauen könnte?

Chris

[Daniel B]

Hi Chris,

hmm, bei mir kommt beim Starten nur eine Fehlermeldung mit: "Die erforderliche DLL-Datei RTL60.BPL wurde nicht gefunden."

Grüsse, Daniel

[Luckie]

Na bitte sieht doch gut aus. Ich habe damals leider nicht so hübsche Bildchen gefunden.

[CalganX]

Zitat von Daniel B:

Hi Chris,

hmm, bei mir kommt beim Starten nur eine Fehlermeldung mit: "Die erforderliche DLL-Datei RTL60.BPL wurde nicht gefunden."

Grüsse, Daniel

Hi Daniel,
wundert mich, da ich eigentlich keine RTLs drin hab...
Mach einfach die RTLs wieder raus unter "Components" => "Install Packages".

@Luckie: leider verstehe ich nicht, was du meinst. Findest du meine oder deine Bilder nicht so toll?

Chris

[Luckie]

Zitat von Chakotay1308:

@Luckie: leider verstehe ich nicht, was du meinst. Findest du meine oder deine Bilder nicht so toll?

Meine finde ich nicht so toll.

[Daniel B]

Zitat von Chakotay1308:

wundert mich, da ich eigentlich keine RTLs drin hab...
Mach einfach die RTLs wieder raus unter "Components" => "Install Packages".

Bitte? Ist das jetzt Dein ernst?
1. Hab ich kein Delphi.
2. Musst Du doch eine funktionsfähige Version ausliefern!
3. Du musst anders Komplizieren. Dann gibt es auch solche Probleme nicht, aber das musst Du ausbügeln!

Grüsse, Daniel