Delphi Gods requied ;-)

In ähnlichen Fällen hat es schonmal sehr geholfen, einfach den bisherigen Code zu posten...

Hi ,,,,,, ,

Der Code sieht in etwa so aus...
Ich lese den Code aus und trage je nachdem den Haken in die CheckBox1 ein.

procedure TForm1.FormCreate(Sender: TObject);
var
  Dings: Integer;
begin
  with TRegistry.Create do
  begin
    Rootkey:=HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', FALSE) then
    begin
      Dings := ReadInteger('NoSMHelp');
      If Dings = 0 then CheckBox1.Checked := TRUE;
    end;
  end;
end;

Weiss leider nicht wie man den code in so n' kleines Fenster bringt.. ich hoff es is auch so leserlich ;-)

Danke und greez

:.[terminated].:

Du musst hinten bei der Methode OpenKey als letztes Attribut nicht FALSE schreiben, sondern true (lies Dir mal die Hilfe bei Delphi durch). Das letzte Attribut besagt, was geschehen soll, wenn der Key nicht existiert. Wenn Du FALSE hinschreibst, dann gibt er ne Fehlermeldung aus, wenn Du TRUE hinschreibst, dann erstellt Delphi den Key, sofern er nicht existiert ...


mfg maddin

Hi...

Wow, ich hab schon selbst an keine Antwort mehr geglaubt. Es hat sich zwar schon erledigt, aber trotzdem noch

Vielen Dank!  

Thnx & greez

:.[terminated].:

np ... :-)