Aktion auswählen Dialog beim einlegen eines Datenträgerns

[Van HelF]

hatte mich leider etwas zu früh gefreut, ich habe mit folgendem code die einträge erstellt, jedoch passiert nichts

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var d:Tregistry;
begin
    d:=TRegistry.Create;
    d.RootKey:=HKey_Local_Machine;
    if d.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Handlers',false)=true then
    begin
      d.CreateKey('Index Of');
      if d.OpenKey('Index Of',false)=true then
      begin
        d.WriteString('Action','Datenträger Indexieren');
        d.WriteString('DefaultIcon','C:\Programme\Index Of\Index Of.exe');
        d.WriteString('Provider','Index Of');
      end;
    end;
    d.Free;
end;

Erklärung zu Autoplay v2