Forum: Programmieren allgemein
by Andreas13,
29. Jan 2021
@Klaus01: Prima, danke, es funktioniert! :thumb:
Gruß, Andreas
Forum: Programmieren allgemein
by Andreas13,
29. Jan 2021
Mir sind noch einige Fehler in hwid.pas (MachinenID - 32Bit.zip) aufgefallen: In allen Teilen der Routine GetIdeSerialNumber, die
Reg.OpenKeyReadOnly(..) enthalten, sollten die Registry-Aufrufe in einen weiteren Speicherschutzblock gepackt werden:
Try
... // bisheriger Code
Finally
Reg.CloseKey;
End;
Andreas
Forum: Programmieren allgemein
by Andreas13,
29. Jan 2021
Hier https://www.delphipraxis.net/172006-windows-8-produkt-key-auslesen.html habe ich etwas gefunden:
Function GetWinProductId: String;
Var
Reg: TRegistry;
Begin
Reg:= TRegistry.Create(KEY_READ or $0100);
Try
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Forum: Programmieren allgemein
by Andreas13,
29. Jan 2021
Ja, aber das ist ein externes Programm und keine Delphi-Routine...
Gute Idee Himitsu!
Man könnte noch weiter gehen und den HASH-Wert mehrerer Kennzahlen (z. B. CPUID, CPUModel, CPUSpeed, Biosdate, HDDSerialNo, HDDVSerialno, Tempdir, MemTotalPhisical, Wintype, WinUserName etc.) separat ablegen und jeder Eigenschaft eine gewisse Anzahl von Werte-Punkten („Scores“) zuordnen. Zum...
Forum: Programmieren allgemein
by Andreas13,
28. Jan 2021
Danke für Antworten und Tipps!
Ich habe am alten Programm-Code etliches modifiziert, angepaßt, auskommentiert, hinzugefügt und verbessert (? :oops:), so daß er wenigstens für die 32-Bit Zielplattform kompiliert werden kann.
D.h. es entsteht ein 32-Bit Programm, welches aber auch unter Windows 64 läuft und größtenteils funktioniert. Neu hinzugefügte Routinen sind u.a.: GetTotalPhysMemory und...
Forum: Programmieren allgemein
by Andreas13,
27. Jan 2021
Hallo Community,
beim Versuch, ein Programm für die Generierung einer MachineID aus dem Jahr 2005 https://www.delphipraxis.net/54640-generierung-einer-machineid.html unter XE5 zu kompilieren und unter Win-10 zum Laufen zu bringen, erhalte ich eine EConvertError - Exzeption und damit auch keine MachineID...:(
Hat jemand von Euch evtl. eine aktualisierte und vor allem funktionierende Version...