Mal als Beispiel. Einen anderen DWORD-Wert habe ich auf die Schnelle nicht gefunden:
Delphi-Quellcode:
if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer',
0,KEY_READ,reg) = ERROR_SUCCESS) then
try
dwType := REG_NONE;
dwLen := 0;
// Zugriff auf den Wert klappte schon mal
if(RegQueryValueEx(reg,'NoDriveTypeAutoRun',nil,@dwType,nil,
@dwLen) = ERROR_SUCCESS) and
// ist es ein DWORD
(dwType = REG_DWORD) and
// mit 4 Bytes Größe
(dwLen = 4) then
begin
// dann noch mal,
if(RegQueryValueEx(reg,'NoDriveTypeAutoRun',nil,
@dwType,
@dwValue, // <-- DWORD-Variable für den Wert
@dwLen) <> ERROR_SUCCESS) then
dwValue := 0;
end;
finally
RegCloseKey(reg);
end;
ShowMessage(Format('Wert von "%s" = %d (%.8x)',
['NoDriveTypeAutoRun',dwValue,dwValue]));
Schau doch mal in die viel zitierten
Win32-
API-Tutorials von Luckie. Da gibt´s ein ganzes Kapitel zum Thema Registry.