[ reiser @ 30.08.2004. 13:08 ] @
Poludecu, ne znam zasto mi sledeci kod ne radi : Code: 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... |