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

[sakura]

Hast Du mal mit F7/F8 den Ablauf Schritt für Schritt verfolgt? Bei welcher Anweisung kommt die Fehlermeldung?

...:cat:...

[Andreas L.]

Code:

  Reg.WriteString (ExtractFileDir(Application.ExeName)+'\Web-S!te.exe'+'"%1"');

Hier kommt die meldung

Code:

   Reg.WriteString('Softprose Web-S!te Vorlage');

und hier auch

[Christian Seehase]

Moin onlinehome,

WriteString erwartet als Parameter den Namen des Wertes, den es schreiben soll, und dann den Wert selber, und wenn ich das richtig sehe, fehlt bei Dir der Name des Wertes.

[sakura]

Wahrscheinlich willst Du den Standardwert setzen, einfachen einen leeren String für den Namen einsetzen.

Delphi-Quellcode:

Reg.WriteString('', 'Der Wert für den Standardwert');

...:cat:...

[Andreas L.]

Jetzt gehts, THX!