Hardware UUID auslesen?

[softtouch]

Weiss jemand, wie ich an die Hardware UUID unter macOS komme?
Das ist die, welche unter Hardware Overview auf dem Mac angezeigt wird, wo auch die System Serial, Memory und mehr angezeigt wird.

[Sherlock]

Du könntest ausgehend von der Antwort auf diese Frage (https://stackoverflow.com/questions/...-x-programming) zu einer Lösung kommen. An Übersetzungen ObjectiveC -> Delphi hast Du Dich sicher schon gewöhnt...

Sherlock

[softtouch]

Zitat von Sherlock:

Du könntest ausgehend von der Antwort auf diese Frage (https://stackoverflow.com/questions/...-x-programming) zu einer Lösung kommen. An Übersetzungen ObjectiveC -> Delphi hast Du Dich sicher schon gewöhnt...

Sherlock

Danke, schaue ich mir gleich mal an.

[philipp.hofmann]

Ich mache es unter MacOS folgendermaßen:

Delphi-Quellcode:

var PlatformExpert: io_service_t;
    M: CFMutableDictionaryRef;
    SerialNumberAsCFString: CFTypeRef;
    _AnsiChar: PAnsiChar;
begin
  M := IOServiceMatching('IOPlatformExpertDevice');
  PlatformExpert := IOServiceGetMatchingService(kIOMasterPortDefault,CFDictionaryRef(M));
  SerialNumberAsCFString := IORegistryEntryCreateCFProperty(PlatformExpert, CFSTR('IOPlatformSerialNumber'),kCFAllocatorDefault,0);
    _AnsiChar := CFStringGetCStringPtr(SerialNumberAsCFString,0);
    Result := String(AnsiString(_AnsiChar));
    IOObjectRelease(PlatformExpert);
end;