Nur der Vollständigkeit halber habe ich das Ganze mal in eine
Unit gekapselt, eventuell ist es ja doch für jemanden nützlich.
Testprojekt ist dabei.
Aufruf:
Delphi-Quellcode:
uses
Unit_UUIDKey_01;
var
t: Unit_UUIDKey_01.TUUIDKeyResult;
begin
t := Unit_UUIDKey_01.createKey('test_notazip', 500);
In t ist der Key und die benötigten Offsets.
LG Mathias