TSecureId sidProcesu = RProcess().SecureId();

// Definiujemy kategori oraz klucze identyfikujce waciwoci tworzone 
// w biecym procesie.
TUid kategoria( sidProcesu );
const TUint KKluczWlasciwosciInt = 1;
const TUint KKluczWlasciwosciTekst = 2;
const TInt KMaxRozmiarTekstu = 64;

// Definiujemy waciwo typu cakowitego.
TInt blad = RProperty::Define( kategoria, KKluczWlasciwosciInt, RProperty::EInt );
if( blad != KErrNone && blad != KErrAlreadyExists )
    {
    // Obsuga bdu
    User::Leave( blad );
    }

// Definiujemy waciwo typu tekstowego. Bdzie moga by odczytywana oraz
// modyfikowana wycznie w biecym procesie.
TSecurityPolicy politykaBezp( sidProcesu );
blad = RProperty::Define( kategoria, 
                        KKluczWlasciwosciTekst,  
                        RProperty::EText,
                        politykaBezp,    // Polityka odczytu
                        politykaBezp,    // Polityka zapisu
                        KMaxRozmiarTekstu );
if( blad != KErrNone && blad != KErrAlreadyExists )
    {
    // Obsuga bdu
    User::Leave( blad );
    }

// Podczamy si do waciwoci typu cakowitego.
// Do waciwoci tekstowej bdziemy odwoywa si za pomoc
// statycznych metod klasy RProperty.
RProperty wlasciwoscInt;
User::LeaveIfError( wlasciwoscInt.Attach( kategoria, KKluczWlasciwosciInt ) );
CleanupClosePushL( wlasciwoscInt );

// ...
// Ustawiamy wartoci waciwoci.
TInt wartoscInt = 100;
User::LeaveIfError( wlasciwoscInt.Set( wartoscInt ) );

_LIT( KTekst, "Tekst..." );
TBuf< 64 > wartoscTekst( KTekst );
User::LeaveIfError( RProperty::Set( kategoria, KKluczWlasciwosciTekst, wartoscTekst ) );

// ...
// Odczytujemy wartoci waciwoci.
wartoscInt = 0;
User::LeaveIfError( wlasciwoscInt.Get( wartoscInt ) );
// wartoscInt = 100

wartoscTekst.Zero();
User::LeaveIfError( RProperty::Get( kategoria, KKluczWlasciwosciTekst, wartoscTekst ) );
// wartoscTekst = "Tekst..."

// ...
// Usuwamy waciwoci.
// Zakadamy, e podczas usuwania waciwoci nie wystpi aden bd.
CleanupStack::PopAndDestroy( &wlasciwoscInt );
RProperty::Delete( KKluczWlasciwosciInt );
RProperty::Delete( KKluczWlasciwosciTekst );
