SysInfo

**Luckie**

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

).

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?

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,

WIN32_FIND_DATA
weiss nicht
FindFirstFile
FILE_ATTRIBUTE_NORMAL
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...

Chris

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#1 27. Jan 2003, 20:07 Der war gut. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#4 7. Feb 2003, 19:08 @ 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
	Zitat

Chewie Registriert seit: 10. Jun 2002 Ort: Deidesheim 2.886 Beiträge Turbo Delphi für Win32	#5 7. Feb 2003, 19:12 FindFirst gibts auch mit der WinAPI. Fängt da auch mit FindFirst an. Martin Leim Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#7 7. Feb 2003, 19:15 Und heißt genau??? Chris
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#8 7. Feb 2003, 19:19 Hi, Christian hats also gerade im Moment gepostet. Also, nun noch ein paar Sachen, die übrig bleiben: StrPas FindClose Chris
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.123 Beiträge Delphi 11 Alexandria	#9 7. Feb 2003, 19:22 Moin Chris, zu FindClose: Such Dir doch mal das Beispiel zu FindFirstFile raus. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#10 7. Feb 2003, 19:22 Gerade im Moment gefunden. Fehlt nur noch StrPas und dann bin ich die SysUtils-Unit los... Chris
	Zitat

SysInfo

Forumregeln