Moin Mario,
warum verlässt Du Dich drauf, dass RegQueryValueEx nicht fehlschlägt?
Prüf' das mal lieber:
Delphi-Quellcode:
if RegQueryValueEx(....) <> ERROR_SUCCESS then begin
ShowMessage(SysErrorMessage(GetLastError));
end else begin
ShowMessage(....);
end;
Ausserdem fehlen try/finally und RegCloseKey
