Ein Programm das es schon zu genüge gibt: ComputerInfo

[KingofWerlte]

So dies ist ein produkt großer langeweile: ComputerInfo. Dieses Programm listet Daten des Computers auf wie z.B. BIOS-Datum,BIOS-Copyright,BIOS-Seriennummer,CPU-Namen,Taktfrequenz usw.
Ich weiß einige sachen fehlen wie z.B. HDD Größe usw. aber wer will kann es ja erweitern.
Getestet auf Windows 98SE
gemacht mit Delphi 6 Personal
Größe des Packets: 242 kb
Wie immer bei meinen Programmen: Nutzung auf eigene Gefahr :lol:
(hab da nich einige Kommentare reingebracht)

[Luckie]

Warum muss ich erst einen Button klicken, damit ich die Infos sehe?

CPU-Name und Version ist bei mir leer. Version von was eigentlich? :gruebel:

Edit: Da haben wir es schon:

Delphi-Quellcode:

Reg := TRegistry.Create;

Ich als Hauptbenutzer habe keinen Schreibzugriff auf HKLM. :warn:

Delphi-Quellcode:

Reg := TRegistry.Create(KEY_READ);

So geht es, schreiben willst du ja sowieso nicht.
Desweiteren gibt es eine bessere Möglichkleit die Windowsversion zu ermitteln. Es gibt die API GetVersion(Ex). Sollte sich Microsoft dazu entscheiden beim nächsten SP die Versions-Infos wo anders in der Registry abzulegen, läuifst du ins Leere.

Warum schreibst du den Modus nicht im Klartext hin? Du weißt doch, dass 0 für normal steht.

Zeit seit Windowsstart (in Sekunden). Sind das nicht eher Millisekunden? Sonst würde mein Rechner schon 2010 Stunden am Stück laufen. Und eine angabe in Stunden und Minuten würde ich für sinnvoller halten.

Warum lieferst du bei den Sourcen die Backup-Dateien und kompilierten Units mit?

[sCrAPt]

hiho

In XP ist mir viel in die Augen gesprungen:

• Die Fenster sind zu klein, wodurch Scrollbalken angezeigt werden
• Das Biosdatum ist X|C !?
• du solltest den hintergrund der 2 Icons oben transparent machen, denn bei XP hat clbtnface (die formfarbe) eine andere farbe...
• Warum überprüft (Warum eigentlich überprüfen? Ich würde es eher in 'System-Daten abrufen' oder so umbenennen...) er das System nicht gleich beim öffnen des Programmes? Wenn das zu lange dauert kannst du ja ein TSplashscreen nehmen ;)
• Der Programmname in der Taskleiste ist nicht der selbe wie die Caption des Forms...
• Rechne doch die Zeit des letzten Windows-Starts in Minuten oder Stunden um.... bei Sekunden muss man gut kopfrechnen können...

Das war nur ein kleiner Reinspitzler von mir.... muss wieder weiter praktikum machn...

:angle:, sCrAPt

[Luckie]

Delphi-Quellcode:

function GetCPUSpeed: Double;
const
 TimeOfDelay = 500;
var
 TimerHigh,
 TimerLow: DWord;
begin
 SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
 SetThreadPriority(GetCurrentThread,
 THREAD_PRIORITY_TIME_CRITICAL);
  asm
  dw 310Fh
  mov TimerLow, eax
  mov TimerHigh, edx
end;
  Sleep(TimeOfDelay);
  asm
  dw 310Fh
  sub eax, TimerLow
  sub edx, TimerHigh
  mov TimerLow, eax
  mov TimerHigh, edx
end;
 Result := TimerLow / (1000.0 * TimeOfDelay);
end;

Du setzt die Priorität nicht wieder zurück. :warn:

[KingofWerlte]

*schluck* :oops:
:duck:

[glkgereon]

ich will ja nix sagen, aber die daten sollten schon stimmen!!!
maus, 2 tasten, falsch, 3
biosdatum, X|C ????????????????
rest vom bios, not supported
naja, aber da es eh relativ, nutzlos :duck: ist, naja...

[KingofWerlte]

joa..nutzlos ist es wirklich...da haste recht..

[glkgereon]

wen du eh nix anderes zu tun hast als nutzlose proggies zu machen, mach doch bei unserem schach-prog mit!!! bisher human vs human, also gehts (ersmal :) ) nur umme graphik

[KingofWerlte]

:mrgreen: ...wohl gemerkt CI war mein erstes nutzloses Programm....hmm Schach..kann ich wohl...beim projekt mitmachen..könnt ein wenig streßig werden..bin schon bei nem anderen projekt dabei..aber ich überlegs mir nochmal
viva la raza homes :hi:

[glkgereon]

im prinzip ist das projekt nicht allzu umfangreich:
es sollen 64 images da sein, und bei click auf eins, und noch mal click auf ein anderes soll das bild verschoben werden, bzw. die bildadressen vertauscht werden.
überprüfung auf unmögliche züge gehört schon zur "expansion" :-D