Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
20. Apr 2010
Mein Fehler, DeleteValue brachte den gewünschten Erfolg, Danke an alle.
PS: Die SystemError Meldungen kann ich nicht gebrauchen sie geben nur "Der Vorgang wurde erfolgreich beendet" aus, wenn man zu wenig Rechte besitzt.
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Habe das mal eingefügt,sagt nun immer noch "Done", passieren tut weiterhin gar nichts.
Nochmal mein Quelltext: procedure TForm1.UnlockClick(Sender: TObject);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Der ist schon gesetzt keine Sorge. Daran liegt es nicht.
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Ok aber was genau bringt mir das? Ich weiß ja das es nicht funktioniert. Und falls ich das ganze versuchen soll muss ich das mit einer Boolean Variable machen, richtig?
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Ok mit neuen Rechten gibt er ein Done aus. Machen tut er trotzdem nichts. (Pfad, Rechte und Backslash sind korrekt).
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Funktioniert leider immer noch nicht. Zur allgemeinen Information ich habe Uses ...,Registry; drin und alles mit Administrationsrechten ausgeführt.
Edit: So habe das ganze nun nochmal mit einer If-Struktur überarbeitet:
procedure TForm1.UnlockClick(Sender: TObject);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Danke schon mal schaue mir das ganze nochmal in eurer Datenbank an.
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Ok habe nun meinen Quelltext etwas angepasst, funktionieren tut es trotzdem noch nicht.
procedure TForm1.UnlockClick(Sender: TObject);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
Forum: Sonstige Fragen zu Delphi
Delphi
by DarkProtector,
19. Apr 2010
Hallo,
ich bin neu hier und wollte eben mal einen Registry Key löschen:procedure TForm1.UnlockClick(Sender: TObject);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try