SysInfo

[Luckie]

:mrgreen:

Der war gut.

[CalganX]

So, nachdem ich weitere Erfahrungen gesammelt habe, nun hier meine etwas verbesserte Version. Ich habe aber bisher keine neuen Informationen eingebaut, dass kommt erst später noch...
Kritik erwünscht (dies mal werde ich sie auch vertragen :mrgreen: ).

Chris

PS: Sorry, für mein Verhalten am Anfang... :|
PPS: Jetzt braucht nix mehr irgendwo an anderen Dateien geändert werden.
PPPS: Leider ist eine Information verloren gegangen, kommt bald wieder.
PPPPS: Jetzt sind's nur noch 45kB EXE. Deutliche Verbesserung, oder?

[MathiasSimmack]

Zitat:

Zitat von Chakotay1308

PPPPS: Jetzt sind's nur noch 45kB EXE. Deutliche Verbesserung, oder?

Hm, im Vergleich womit? Wenn ich so überlege, dass ich deinen Code in eine Exe von nur 23,5k gequetscht habe, dann wohl nicht ... :)

PS: Gequetscht bitte nicht mit UPX verwechseln! Die Größe der Datei bezieht sich auf die unkomprimierte Version. Die Änderungen, die ich vornahm, habe ich ja weiter oben beschrieben.

[CalganX]

@ Matthias: ich meine im Gegensatz zum ersten Post. Werde mal sehen, ob ich noch was raushauen kann...
Dazu bräuchte ich Alternativcode für folgende Sachen

• TSearchRec
• StrPas
• FindFirst
• faAnyFile
• IntToStr => Ist bereits oben

Chris

[Chewie]

FindFirst gibts auch mit der WinAPI. Fängt da auch mit FindFirst an.

[Christian Seehase]

Moin Chris,

1. WIN32_FIND_DATA
2. weiss nicht
3. FindFirstFile
4. FILE_ATTRIBUTE_NORMAL
5. weiss nicht

Zu dem FindFirstFile usw. müsstest Du hier im Forum Beispiele finden (incl. einbinden). Ich hatte hier, wenn ich mich recht entsinne mal was entsprechendes gepostet.

[CalganX]

Und heißt genau???

Chris

[CalganX]

Hi,
Christian hats also gerade im Moment gepostet. Also, nun noch ein paar Sachen, die übrig bleiben:

• StrPas
• FindClose

Chris

[Christian Seehase]

Moin Chris,

zu FindClose:
Such Dir doch mal das Beispiel zu FindFirstFile raus.

[CalganX]

Gerade im Moment gefunden. Fehlt nur noch StrPas und dann bin ich die SysUtils-Unit los... :roll:

Chris