TRegistry

[Andreas L.]

Hi,
was stimmt hier nicht??

Code:

procedure TForm6.PDJButton2Click(Sender: TObject);
var Reg : TRegistry;
    a:Boolean;
begin
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CLASSES_ROOT;
  a:= Reg.createkey('\Softprose Web-S!te Vorlage');
  if Reg.Openkey('\Softprose Web-S!te Vorlage',False) then
  begin
   Reg.WriteString('','Softprose Web-S!te Vorlage');
  end;
  a:= Reg.createkey('\Softprose Web-S!te Vorlage'+'\DefaultIcon');
  if Reg.Openkey('\Softprose Web-S!te Vorlage'+'\DefaultIcon',False) then
   Reg.WriteString('',ExtractFileDir(Application.ExeName)+'\swv.ico'+',0');
  a:= Reg.createkey('\Softprose Web-S!te Vorlage'+'\Shell\Open\command');
  if Reg.Openkey('\Softprose Web-S!te Vorlage'+'\Shell\Open\command',False) then
   Reg.WriteString (ExtractFileDir(Application.ExeName)+'\Web-S!te.exe'+'"%1"');
  a:= Reg.createkey('\.swv');
  if Reg.Openkey('\.swv',False) then
  begin
   Reg.WriteString('Softprose Web-S!te Vorlage');
   Reg.WriteString('Content Type','text/plain');
  end;
  Reg.Free;
end;

Ich bekomme immer die meldung nicht genügend wirkliche parameter! Die Unit Registry is in der USES eingetragen!

Ich weiß nimmer weiter, hab schon alles ausprobiert!

THX