Изменение имени корзины через реестр

[IzIFRag]

Есть форма с кнопкой, код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
   MyKey	: HKey;	{ Handle для работы с разделом }
   RegIni: TregIniFile;
   s:string;
   Count: Integer;
   Err : longint;{ Код ошибки }
   Reg: TRegistry;

   begin
  Err:=RegOpenKey(HKEY_CLASSES_ROOT,'CLSID\{645FF040-5081-101B-9F08-00AA002F954E}',MyKey); { Открыли раздел }
  if Err<> ERROR_SUCCESS then
    begin
     MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);      {проверка существования раздела}
     regclosekey(mykey);
     exit;
  end;
reg := TRegistry.Create;                                          {запись}
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('CLSID{645FF040-5081-101B-9F08-00AA002F954E}', true);
reg.WriteString('LocalizedString', 'gg1gg1gg1');


    with reg do
    begin
   RootKey := HKEY_CLASSES_ROOT;                                     {чтение}
    OpenKey('CLSID\{645FF040-5081-101B-9F08-00AA002F954E}',false);
    ShowMessage(reg.ReadString('LocalizedString'));
    CloseKey;
    free;
  end;
end;

Значение как бы записывается и меняется, по крайней мере при чтении, а в самом реестре и на рабочем столе никаких изменений нет...

Пробывал записывать так:

RegOpenKeyEx(HKEY_CLASSES_ROOT,'CLSID\{645FF040-5081-101B-9F08-00AA002F954E}',0,KEY_ALL_ACCESS,mykey);
   RegSetValueEx(mykey,'LocalizedString',0,REG_EXPAND_SZ,pchar('s1sssss'),255);

но все тоже самое...
подскажите пожалуйста, где неправильно.

[W0LF]

Перезапустите Explorer.exe, но наверное есть более гуманный выход...

[TzX]

А если обновить раб стол то обновляется? Может быть просто послать нажатие ф5 эксплореру

[IzIFRag]

Неа, не помогает...

[Stilet]

есть более гуманный выход

Если не опшибаюсь еше нужно какое-то сообщение послать... Вот только не помню какое, чтоб все переобновились
Вот нашел кажись:

  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0,
    LongInt(PChar('RegistrySection')));

[IzIFRag]

Странно, но параметр не меняется вообще...
При его чтении он видет то, что он изменился, а ни на рабочем столе ни в редакторе реестра изменений нет.

Нет больше идей ?

[Altera]

Ты не туда пишешь!
Вот дай в реестре поиск по тому слову как корзину назвать хочешь, и увидишь, куда ты его записал.

У меня всё работает

procedure TForm3.Button1Click(Sender: TObject);
var
  reg: tRegIniFile;
begin
  reg := tRegIniFile.Create('');
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('CLSID', false);
  reg.WriteString('{645FF040-5081-101B-9F08-00AA002F954E}', 'LocalizedString',
    Edit1.Text);
  reg.Free;
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  reg: tRegIniFile;
begin
  reg := tRegIniFile.Create('');
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('CLSID', false);
  showMessage(reg.ReadString('{645FF040-5081-101B-9F08-00AA002F954E}',
      'LocalizedString', '(error)'));
  reg.Free;
end;