Ang. RegDatabase

Jeg vil anbefale at du bruger enten TRegIni eller TRegistry Classerne, de er lidt smartere en API kald. Du kan få Online hjælp og eks. ( F1 )

/Martin

Tak for hjælpen, men jeg kunne godt tænke mig at se et eks. :-)

Fra Online hjælpen :

procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
    begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;

end;

martinlind >> Kunne du ikke lave mig et eks på hvordan jeg kommer igang med Delphi WebScript

Ok Tak, jeg vil prøve den senere, har travlt med HOVEDOPGAVE :-)

JB >> Nååee, er du faldet over den, den ser meget sød ud, dog mangler man nogle eks. og hjælp, jeg brugte selv nogle af demo'erne men har ikke brugt den til noget seriøst, hvis du ikke kan få noget til at køre så drop en mail, så kan jeg se hvad jeg har ligende.

/Martin

jeg så bare du en gang havde gang i det til din HP ...

Jens B

Ja, men jeg fik de aldrig til at køre "Helt Rigtigt" og har ikke fået kigget på den nyeste ( nu har jeg besluttet at bruge ISAPI www.matlus.com )

/Martin

Hmmn .. Ja jeg skal have mit hosted ude i byen .. Gidder du at dense mig det du lavede i DWS ?

Bare et lille eksempel på hvordan jeg får hul ?

Jens B

Uses registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\MitProgram\', True);
    Reg.WriteString('', '12345'); //Skriver standard værdien
    Reg.WriteString('VERSION', '1.0'); //Skriver version
  finally
    Reg.Free;
  end;
end;