Registry |Genişletebilir Dize Değeri

[digital_agels]

Merhaba ben Bu Aşşağıdaki Kod ile Dize Değeri Oluşturabiliyorum fakat genişletebilinir dize değeri oluşturamuyorum bunu nasıl yapabiliriz

kod bu ;

Kod: Tümünü seç

procedure TForm1.Desktop_ushClick(Sender: TObject);
var
R:Tregistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_CURRENT_USER;
R.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\',False);

//False değeri eğer anahtar yoksa oluşturulmaz  (True ile olusturur)

R.WriteString('Desktop',ComboBox1.Text+'Documents and Settings\'+edit1.Text+'\Desktop');

//WriteString('Dize Adı','Değer') ile string değer yazıldı
//yazılan integer deger ise "Writeinteger('Dize Adı','Değer')" kullan


R.CloseKey;
R.free;
end;

bunun ile normal dize değeri oluşturuyorum tür olarak REG_SZ olarak gözüküyor regeditte fakat benim REG_EXPAND_SZ (Genişletebilir Dize Değeri) oluşturmam gerekiyor .. yardımcı olursanız sevinirim..

[digital_agels]

cevabı kendim buldum ben

R.WriteString('Desktop',ComboBox1.Text+'Documents and Settings\'+edit1.Text+'\Desktop');

yerine

R.WriteExpandString('Desktop',ComboBox1.Text+'Documents and Settings\'+edit1.Text+'\Desktop');

yazınca expand_sz oluşturmuş oluyorsun