Windows Rechtsklickmenü

[DeddyH]

Fassen wir also zusammen:

Delphi-Quellcode:

var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CLASSES_ROOT;
    if Registry.OpenKey('*\Shell\Test',true) then
      try
        Registry.WriteString('','Editor öffnen');
        if Registry.OpenKey('command',true) then
          try
            Registry.WriteString('','C:\Windows\system32\notepad.exe C:\Text.txt');
          finally
            Registry.CloseKey;
          end;
      finally 
        Registry.CloseKey;
      end;
  finally
    Registry.Free;
  end;
end;