Falls es noch jemanden interessiert, da der Zugriff nicht möglich war habe ich den Schlüssel einfach in mein Programmverzeichnis exportiert:
Delphi-Quellcode:
procedure Tform1.exportkey;
var applicationroot:
String;
begin
applicationroot:=ExtractFilePath(Application.Exename);
ShellExecute(Form1.Handle
,'
open'
,'
regedit.exe'
,Pchar('
/e '+applicationroot+'
device.REG "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\DiskST9120821AS_____________________________3.06____\5&302caf91&0&0.0.0"')
,'
'
,SW_SHOWNORMAL);
end;
jetzt brauch ich einfach nur den string durchsuchen