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ä*

**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 Delphi 2006 Professional	#11 27. Jan 2003, 20:07 Der war gut. Michael
	Zitat

CalganX Turbo Delphi für Win32	#14 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 Turbo Delphi für Win32	#15 7. Feb 2003, 19:12 FindFirst gibts auch mit der WinAPI. Fängt da auch mit FindFirst an. Martin Leim
	Zitat

Christian Seehase Delphi 11 Alexandria	#16 7. Feb 2003, 19:15 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.
	Zitat

CalganX Turbo Delphi für Win32	#17 7. Feb 2003, 19:15 Und heißt genau??? Chris
	Zitat

CalganX Turbo Delphi für Win32	#18 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 Delphi 11 Alexandria	#19 7. Feb 2003, 19:22 Moin Chris, zu FindClose: Such Dir doch mal das Beispiel zu FindFirstFile raus.
	Zitat

CalganX Turbo Delphi für Win32	#20 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