var
hndKey : HKEY;
mPath : String;
mSize : DWORD;
begin
If RegOpenKeyEx(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion'),
0,
KEY_QUERY_VALUE,
hndKey) = ERROR_SUCCESS Then
Try
mSize := SizeOf(mPath);
RegQueryValueEx(hndKey, 'MediaPath', nil, nil, PByte(mPath), @mSize);
Finally
RegCloseKey(hndKey);
End;
I kad na kraju udarim ShowMessage(mPath), vidim da je mPath prazan...