ok ich habs... danke trotzdem für eure hilfe ...
für alle die es mal suchen:
Code:
procedure TForm1.addClick(Sender: TObject);
var
Reg:TRegistry;
begin
reg:=tregistry.create();
Reg.RootKey:=HKEY_CLASSES_ROOT;
-> Reg.OpenKey('*\shell',true); // wird das benötigt ???
-> Reg.CloseKey;
Reg.OpenKey('*\shell\'+Name,true);
Reg.WriteString('',Title);//optional
Reg.CloseKey;
Reg.OpenKey('*\shell\'+Name+'\command',true);
Reg.WriteString('',Adress); // adress="c:\test\meinprogramm.exe %1"
Reg.CloseKey;
reg.free;
end;
2 Fragen hab ich aber noch
1. die oben gezeigt stelle mit -> wird die benötigt ?
2. wie kann ich den eintrag wieder löschen ?